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Functional  programming  is  a  methodology  designed  to 
eliminate  many  of  the  problems  of  past  programming  lanuages 
through  actions  such  as  the  elimination  of  the  assignment 
statement  and  the  ability  to  program  in  an  environment  that 
is  at  a  higher  level  of  abstraction  than  any  previous 
languages.  In  this  report  an  interpreter,  written  in 
Pascal,  for  the  Extended  Lambda  Calculus  is  presented. 
Initially,  the  events  leading  to  the  development  of  func¬ 
tional  programming  is  discussed  followed  by  an  in  depth  look 
at  how  the  interpreter  operates.  Numerous  example  ELC 
programs  are  presented,  including  discussions  of  practical 
applications  and  statistical  information  about  execution 
times  and  memory  requirements.  The  Berkeley  Pascal  source 
code  for  the  interpreter  is  also  included  in  Appendix  C. 
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I.  P DEPOSE  AND  BACKGROUND 


A.  P  DEPOSE 

The  purpose  of  this  thesis  it  to  illustrate  the  design 
and  use  of  an  interpreter  for  the  Extended  Lambda  Calculus 
(ELC)  as  described  by  MacLennan  [Ref.  1  ].  Initially, 
however,  it  is  important  to  understand  why  functional 
languages  such  as  ELC  are  important  and  why  they  will  become 
increasingly  important  in  the  future.  To  achieve  this,  a 
brief  background  sketch  is  presented  to  explain  the  events 
that  have  shaped  the  need  for  such  languages. 

B.  BACKGROUND 

During  the  brief  history  of  Computer  Science  there  has 
been  a  remarkably  rapid  evolution  of  computing  hardware, 
while  software  development  has  for  ail  practical  purposes 
remained  static.  Throughout  the  last  thirty  years,  improve¬ 
ments  such  as:  decreasing  component  size,  increased  memory 
capacity,  faster  processor  speeds  and  reduced  hardware  costs 
have  occurred  at  regular  intervals.  This  trend  continues 
today  in  areas  such  as  super  computers  like  the  Cray  and 
Cyber  and  the  rapidly  changing  micro  computer  industry.  If 
one  studies  the  evolution  of  computer  software  for  the  same 
time  period,  in  particular  programming  languages,  the  same 
types  of  rapid  improvements  on  a  regular  basis  have  not 
occurred.  The  first  revolutionary  development  in  program¬ 
ming  languages  occurred  with  the  development  of  FORTRAN  by 
Backus  et  al.  in  the  mid  1950s.  For  the  first  time  scien¬ 
tific  programmers  could  write  code  that  strongly  resembled 
tne  equations  they  were  working  with.  Practically  all  the 
programming  languages  developed  since  that  time,  perhaps 
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with  the  exception  of  LISP  and  APL,  are  basically  the  same 
underneath  as  Fortran.  Of  course  there  are  some  outward 
differences,  such  as  sophisticated  string  and  array  handling 
mechanisms,  but  they  are  all  sequentially  processed  and  rely 
heavily  on  use  of  the  assignment  statement,  variables  and 
the  notion  of  machine  state.  The  early  pioneers  in  program¬ 
ming  languages  are  not  totally  at  fault  for  the  lack  of 
progress.  To  understand  this  statement,  a  brief  examination 
of  the  architecture  these  languages  were  written  for  is 
necessary. 

The  great  improvements  in  hardware  development, 
mentioned  previously,  were  also  not  fundamental  until  fairly 
recently.  Hardware  improvements  remained  superficial  in 
that  the  majority  of  them  were  made  on  the  same  architec¬ 
ture,  that  proposed  by  von  Neumann  et  al.  in  1946.  Briefly, 
the  von  Neumann  architecture  consists  of  a  Central 
Processing  Unit,  a  Memory  used  to  store  both  programs  and 
data,  and  some  kind  cf  connection  between  the  two  capable  of 
transmitting  single  words  or  addresses  back  and  forth. 
Improvements  have  concentrated  on  decreasing  size, 
increasing  speed,  etc.  and  have  not  been  concerned  about  the 
basic  design  of  the  computer.  The  connection  between  the 
memory  and  the  CPU  is  the  reason  why  most  programming 
languages  are  sequential  in  nature,  forcing  the  user  to  deal 
with  some  fairly  low  level  constructs  such  as  incrementing 
counters  and  setting  up  iteration  loops.  3ackus  [Ref.  2] 
termed  this  connection  the  von  Neumann  bottleneck  and  also 
described  conventional  programming  languages  as  just  soft¬ 
ware  versions  of  von  Neumann  machines.  Computer  architec¬ 
tures  are  starting  to  change,  however,  and  in  order  to  gain 
the  maximum  benefit  from  them  programming  languages  and 
techniques  must  change  also. 

Throughout  the  development  of  new  hardware  systems  the 
trend  has  been  to  increase  speed  by  making  components 


smaller  and  smaller.  Common  sense  dictates  that  eventually 
the  ability  to  do  this  will  become  physically  impossible. 
Does  this  mean  that  the  ^uest  to  increase  computation  speed 
will  stop?  Obviously  not.  The  most  promising  solution  is 
to  fully  exploit  parallel  operations  in  data  processing 
whenever  possible.  As  explained  by  Stone  [Ref.  3],  much 
promising  work  has  been  accomplished  in  the  fields  of  array, 
multiprocessor,  and  pipeline  computers,  but  there  are  still 
open  research  problems  concerning  how  to  properly  organize 
and  synchronize  all  these  processors.  In  other  words  there 
is  no  effective  software  to  manage  parallel  computer  opera¬ 
tions.  Conventional  progamming  languages,  with  their 
sequential  nature,  do  not  offer  much  hope  as  a  solution. 
The  functional  programming  languages,  such  as  FP  proposed  by 
Backus  [Bef.  2],  or  the  Kent  Recursive  Calculater  by  Turner 
[Ref.  4],  by  their  very  nature  lend  themselves  to  parallel 
operations.  This  is  illustrated  in  the  next  section. 

As  stated  previously,  one  of  the  biggest  problems  with 
conventional  languages  is  the  assignment  statement.  Backus 
[Ref.  2]  calls  the  assignment  statement  the  bottleneck  of 
programming  languages  because  at  the  heart  of  all  conven¬ 
tional  programs  we  find  a  myriad  of  assignment  operations 
producing  one  word  results.  The  programmer  must  then 
concern  himself  with  the  flow  of  words  through  these  assign¬ 
ment  statements  to  achieve  the  desired  results,  instead  of 
concerning  himself  with  the  problem  as  a  whole.  Another 
problem  with  the  assignment  statement  is  that  it  maxes 
programs  unreliable.  Mathematical  proofs  do  not  lend  them¬ 
selves  well  to  statements.  Consider  someone  trying  to  do  a 
mathematical  proof  of  the  following  statement. 

x  :=  1 

That  statement  makes  absolutely  no  sense  ma th e mat ical ly . 
How  can  ’x*  be  assigned  the  value  of  itself  plus  one?  This 
statement  is  legal,  however,  in  most  conven  tional 
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programming  languages  and  makes  formal  proofs  of  them 
extremely  difficult  as  shown  by  the  work  of  Hoare  [Bef.  5]. 
Functional  languages  do  away  with  the  idea  of  the  assignment 
statement  and  work  only  with  expressions.  Expressions,  in 
contrast  with  statements,  do  posess  mathematical  properties. 
Backus  [Bef.  2]  has  even  shown  that  the  functional  language 
F?  lends  itself  to  an  algebra  cf  programs  that  can  allow  for 
relativly  simple  proofs  of  program  correctness.  Since  func¬ 
tional  languages  deal  only  with  expressions,  the  idea  of 
execution  order  becomes  obsolete,  as  explained  by  MacLennan 
[Ref.  6].  One  begins  to  understand  how  these  languages  can 
be  used  to  exploit  parallelism  since  several  expressions 
could  be  solved  simultaneously  and  then  brought  together  to 
form  a  final  result. 

Another  advantage  of  functional  programming  is  the 

compactness  of  the  code  written  by  programmers.  Two  exam¬ 
ples  from  the  literature  illustrate  this  fact  very  well. 
Backus  shows  in  [fief.  2]  an  FP  program  to  calculate  the 
factorial  of  an  arbitrary  integer  n.  The  program  is  one 
line  long,  whereas  the  corresponding  program  written  in  Pi/I 
is  eight  lines  long.  The  two  programs  are  shown  in  Figure 
1.1  fcr  comparison.  An  even  more  startling  example  was 
devised  by  Early  [fief.  7],  where  a  two  pass  assembler  was 
written  in  both  FE  and  C  for  an  artificial  assembly 

language.  The  assembler  written  in  C  occupied  459  lines  of 
non-ccmment  source  code,  where  as  the  FP  assembler  occupied 
249  lines,  of  which  more  than  190  lines  were  only  a  single 
chare.  so  as  to  aid  in  program  readability  and  clarity. 

This  fax  >  ">uld  have  far  reaching  effects  in  an  attempt  to 
solve  the  s  Jtware  crisis  as  presented  by  Turner  [Ref.  4], 

The  fact  t  at  the  code  is  more  compact  could  mean  increased 

programmer  roductivity  since  it  is  well  known  that  program¬ 
ming  time  is  roughly  proportional  to  the  number  of  lines  of 
code  regardless  of  the  language  being  used.  Also,  since  it 
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memb  <2>  <1  2  3>  = 
memb  <a  b>  <z  t  s  <a  b>>  =  true 

E.  THE  HEART  OF  THE  INTERPRETER,  THE  EVAL  FUNCTION 

The  eval  function.  Figure  2.6,  is  the  most  important 
function  in  the  interpreter.  Eval  acts  as  a  decoder,  deter¬ 
mining  how  each  list  sent  to  it  is  to  ne  interpreted.  This 
is  accomplished  by  stripping  off  the  first  element  of  the 


list  or 

program  and 

then  invoki 

ng  a  rule 

that  corresp 

onds  to 

that  first  element. 

For  exampl 

e,  if  the 

program 

is 

<list  a 

b  c> 

eval  will  strip  off 

the  word  " 

list"  and 

return 

<a  b 

c>  as 

the  result.  Referr 

ing  back  to 

the  line 

of  code 

that 

starts 

prog  ram 

execution. 

it  is 

seen  that  after 

the 

program 

is  read 

in  it  is  s 

ent  to  the 

eval  function  along 

w  it  h  a 

pointer 

called  primi 

tives.  ? 

rimitives 

is  a  pointer 

to  an 

association  list  which  acts  as  an  environment  for  executing 
the  primitive  operations  discussed  in  the  last  section.  For 
a  detailed  discussion  of  association  lists  and  environments 
see  MacLennan  [Ref.  6].  The  primitives  association  list  is 
built  initially  by  using  the  dcprim  (declare  primitives) 
function.  An  example  of  a  part  of  the  list  is  shown  in 
Figure  2.7.  The  reason  this  primitives  association  list  is 
constructed  is  to  maintain  consistency  between  how  primitive 
and  user  defined  functions  are  evaluated  by  the  interpreter. 
This  is  discussed  in  more  detail  later  in  the  next  section. 

It  is  important  tc  now  look  at  the  key  words  recognized 
by  eval  and  the  rules  they  invoke.  By  loing  this,  a 
complete  understanding  of  the  interpreter  will  be  achieved. 

1  .  Function  Eva  Ps  Keyword  £ 

•  list  'List'  simply  lets  the  interpreter  know  that  this 
expression  is  a  list,  so  eval  returns  the  rest  of  the 
list  sent  to  it.  For  example,  if  eval  is  sent 
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•  Sub  Returns  a  particular  element  from  a  list.  Takes  two 

arguments:  a  pointer  to  a  list  and  an  integer  indicating 
the  position  of  the  desired  element  in  a  list.  For 
example,  sub  (<A  E  C>  2  )  =  B 

•  Takes  a  finite  set  (finset)  as  an  argument  and 
returns  its  SLC  representation,  which  is  simply  a  list. 

repr  <finset  :•  b  c  1  2>  =  <a  b  c  1  2> 

•  len  Determines  the  length  of  any  list. 

len  <a>  =  1 
len  <  >  =  0 
len  <a  <b  c>  d>  =  3 

•  Ecpual  Equal  tests  the  equality  of  any  two  atoms  or  any 
two  lists. 

equal  <2  2>  =  true 

equal  <a  c>  =  false 

equal  <a  b  c>  <a  b  c>  =  true 

equal  <a  b  c>  <a  <b>  c>  =  false 

•  GT  Greater-than  tests  if  argl  is  greater  that  arg2. 

GT  argl  arg2  =  true/false 
GT  2  3  =  false 
GT  5  1  =  true 

The  next  three  boolean  primitives  follow  the  same  pattern 
a  s  GT . 

•  LT  less-than 

•  GE  Greatar-than  or  equal  to 

•  LE  Less-than  or  equal  to 

•  Memb  Member  tests  to  see  if  argl  is  an  element  of  arg2, 
which  must  be  a  list. 

memb  argl  <arj2>  =  true/false 
memb  2  <1  2  3>  =  true 
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conr  a  <b  c>  =  <b  c  a> 

conr  <a  b>  <c  d>  =  <c  d  <a  b>> 

A  tom  A  Boolean  function  that  determines  if  its  argument 
is  an  atom. 

atom  'a'  =  true 

atom  <list  a  b  c>  =  false 

Null  A  Boolean  function  to  determine  if  a  list  contains 
no  elements.  The  last  exaaple  is  a  list  containing  one 
element  which  happens  to  be  a  null  list, 
null  <>  =  true 
null  <a>  =  false 
null  <<>>  =  false 

Binary  Arithmetic  Operators  Each  of  the  listed  operators 
works  for  any  m#n  where  m, n  are  two  integers  or  two  real 
numbers. 

sum  m  n 
subt  m  n 
prod  m  n 
divi  m  n 

Trigonometric  Functions  The  following  functions  take 
single  arguments  of  angles  in  degrees, 
sin  x 
cos  x 
tan  x 
cot  x 
sec  x 
esc  x 

Id  Identity  Function;  simply  returns  the  argument  it  is 
sent,  eg.  id  2  =  2  and  id  *a'  =  ’a'.  The  purpose  of 
this  function  is  illustrated  in  example  program  x 
Appendix  B  which  generates  the  table  of  sin,  cos,  tan 
for  all  angles  from  0  to  90  degrees. 
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description  of  tie  primitive  cons  is  covered  in  Section  3  o 
this  chapter,  bat  suffice  it  to  say  that  cons  forms  the 
first  element  of  the  list  represented  as  a  cell  pointed  to 
by  the  head  of  a  1st  cell  with  the  tail  set  to  nil. 
Additional  cells  are  added  by  connecting  them  properly  to 
the  tail  of  the  last  cell  read  using  the  cons  primitive  and 
manual  manipulation  cf  pointers.  This  is  accomplished  by 
the  while  loop  in  function  readlist.  This  process  continues 
until  a  right  angle  bracket  is  recognized,  which  of  course 
signifies  the  end  of  a  list. 

3 .  Primitive  Operations 

The  following  are  the  primitive  operations  provided 
by  the  interpreter  and  a  brief  explanation  of  each.  Correct 
syntax  for  the  language  is  covered  in  Appendix  A. 

•  Ii£st  Takes  a  list  and  returns  the  first  element,  eg. 
the  first  of  <a  b  c>  is  a. 

•  Rest  Takes  a  list  and  returns  a  list  containing  every¬ 
thing  but  the  first  element,  e.g.,  the  rest  of  <a  <b  c 
d>  e>  is  <<b  c  d>  e>. 

•  hast  Takes  a  list  and  returns  the  last  element,  e.g., 
the  last  of  <a  b  c>  is  c. 

•  Initial  Takes  a  list  and  returns  all  elements  except  the 
last,  e.g.,  the  initial  of  <a  b  c>  is  <a  b>. 

•  £ons  Takes  an  atom  or  list  and  makes  it  the  first 
element  of  a  second  list.  The  second  argument  of  a  cons 
operation  must  be  a  list. 

cons  a  <b  c>  =  <a  b  c> 

cons  <a  b>  <c  d>  =  <<a  b>  c  d> 

•  Ccnr  Cons  to  the  right.  Conr  is  the  opposite  of  the 
cons  operation  in  - nat  it  makes  an  atom  or  list  the  last 
element  of  a  second  list. 
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number  of  1st  cells  that  are  at  the  top  of  the  Figure,  there 
are  three  with  the  tail  field  of  the  1st  cell  at  the  far 
right  set  to  nil.  Being  consistent  with  the  previous 
discussion  this  is  a  list  containing  three  elements.  The 
head  of  the  second  1st  cell,  however,  does  not  point  to  a 
leaf  or  information  cell,  it  points  to  another  1st  cell 
which  forms  the  identical  structure  as  previously  seen. 
Again,  the  tail  field  of  the  last  element  xn  the  internal 
list  is  nil,  signifying  the  end  of  this  list. 

D.  E1C  PBOGBAHS 

1  *  Definition 

An  ELC  program  is  nothing  more  than  a  list  built  in 
such  a  way  that  it  can  be  evaluated  by  the  interpreter.  It 
is  important  to  remember  that  cne  program  equals  one  list. 
Of  course  this  one  list  usually  consists  of  many  other 
nested  lists  as  its  elements. 

2  •  Beading  Programs 

Erograms  are  read  into  the  interpreter  by  the 
readval  and  readlist  functions,  which  can  be  reviewed  in 
Appendix  C,  Source  Code.  The  reading  process  is  started  by 
the  following  line  of  the  interpreter. 

printval  (  eval(  readval,  primitives)) 

The  first  function  called  is  the  readval  function  which 
determines  the  type  of  data  being  read  by  recognizing  the 
first  character  of  the  input.  Since  a  program  is  a  list, 
the  first  character  will  obviously  be  a  left  angle  bracket 
'<’,  transfering  execution  to  the  readlist  function. 
Eeaalist  builds  the  program  into  the  same  kind  of  structure 
as  discussed  in  the  last  secticn.  This  is  seen  by  first 
noticing  that  readlist  calls  readval  again  and  the  results 
are  placed  in  a  list  through  the  cons  function.  A  detailed 
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tag  =  alf 
aval  =  'c' 


Figure  2.5  List  Within  a  List. 


The  first  list  contains  three 
that  there  are  three  elements 
cells  that  are  tagged  as  lists 
the  list  is  contained  in  other 
the  heads  of  the  list  cells, 
point  to  the  next  list  cell, 
next  element  in  the  list.  Th 
sented  by  the  tail  field  of  t 
nil.  The  example  in  Figure  2.5 
its  elements  another  list. 


atoms.  It  is  easy  to  tell 
in  the  list  by  countiny  the 
(1st) .  The  information  in 
cells  that  are  pointed  to  by 
The  tails  of  the  list  cells 
which  in  turn  points  to  the 
e  end  of  the  list  is  repre- 
he  last  element  being  set  to 
is  a  list  that  has  as  one  of 
Cnee  again  if  you  count  the 
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Pointer 
from  another 
cell 
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♦- 

->  j  ref  = 
[tag  = 

3  1 

1st  \ 

< - 

—  1  head 

1  tail| - 

- >Pointers  to 

other  cells. 

Figure  2.3  Pascal  Representation  of  a  List  Cell. 
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Figure  2.4  Representation  of  a  Siaple  List 


Figure  2.2  Representation  of  a  Cell  Containing  an  Integer. 


2.  Wha*i  about  lists? 

The  atoms  are  the  building  blocks  of  ELC  and,  when 
placed  in  sequences  form,  the  lists  previously  described, 
lists  are  also  formed  using  variant  records.  Lists  are 
naturally  thought  of  as  items  that  are  grouped  together 
because  of  a  common  bend.  The  linked  list  of  Pascal  is  the 
natural  method  to  use  to  represent  these  groups.  This  is 
clear  because  the  interpreter  needs  to  be  able  to  create 
lists  of  varying  lengths  during  execution.  Since  the  size 
of  Pascal  arrays  must  be  declared  before  program  execution, 
their  use  to  represent  lists  is  impossible.  A  language  with 
arrays  that  could  grow  dynamically  would  be  more  efficient 
to  use  in  order  to  avoid  the  overhead  required  in  main¬ 
taining  Pascal  pointers  in  linked  lists.  The  list  cell  is 
shown  in  Fiyure  2.3.  The  basic  cell  structure  is  the  same, 
except  that  the  tag  is  now  '1st'  and  the  variant  portion  of 
the  record  contains  two  fields  (head  and  tail)  that  are 
pointers  to  other  cells.  As  mentioned  previously,  lists  are 
sequences  of  atoms,  lists,  or  atoms  and  lists  surrounded  by 
ar.gle  brackets.  In  order  for  the  interpreter  to  recognize 
where  the  angle  Irackets  are,  the  tail  field  of  certain  lst 
cells  are  set  to  nil.  The  representation  of  two  simple 
lists  is  shown  in  Figures  2.4  and  2.5. 


refer  to  the  grammar  in  Appendix  A.  Lists  are  sequences  of 
atoms  or  lists  or  atoms  and  lists  separated  by  spaces  and 
surrounded  by  angle  brackets  as  in  Figure  2.1. 


<list  a  b  c> 


<list  a  b  <list  c  d>  e> 
<letrec  append  .  .  .> 


Figure  2.1  ELC  Lists. 

Atoms  are  used  to  represent  information  and  data  in 
the  language,  so  the  interpreter  must  have  a  way  of  repre¬ 
senting  them.  Simple  records  are  not  adequate,  however, 
because  there  are  several  kinds  of  atoms  and  they  must  be 
distinguishable.  The  perfect  choice  is  the  variant  record, 
which  allows  the  same  record  structure  to  be  used  for  all 
atoms  while  permitting  some  or  all  of  the  information  to 
vary  depending  on  the  value  of  a  tag  field.  These  variant 
records  are  referred  to  as  cells  throughout  the  remainder  of 
the  report.  Tags  for  the  different  atoms  are: 

•  too  (boolean  values) 

•  tea  (real  values) 

•  int  (integer  values) 

•  alf  (identifier;  corresponds  to  Berkeley  Pascal  alfa 
type  which  is  a  string  of  ten  characters) 


Figure  2.2  illustrates  the  Pascal  represention  of  an  atom 
cell. 


Memory  management  is  covered  in  detail  in  Section  F  of  this 
chapter.  The  other  advantage  of  Pascal  is  the  clarity  of 
the  code  as  opposed  to  some  other  languages  such  as  FORTRAN 
or  C.  Pascal  is  not  as  efficient  as  these  other  languages, 
but  in  a  prototype  system  like  this  clarity  is  a  higher 
priority. 

2  -  Pascal^s  Disadvantages  are  Commonly  Known 

Pascal’s  disadvantages  for  this  particular  implemen¬ 
tation  are  no  different  than  any  other;  however  there  are 
two  that  deserve  special  mention.  Pascal  input-output 
facilities  afe  very  awkward  to  use.  Any  type  of  translating 
program,  whether  it  be  an  interpreter  or  compiler,  must  scan 
an  input  program,  either  from  a  file  or  terminal,  before 
execution.  Pascal  provides  only  for  input  to  be  read  in  one 
character  at  a  time.  This  technique  is  obviously  very  inef¬ 
ficient,  especially  since  it  is  well  known  that  a  good 
method  of  improving  program  efficiency  is  by  reducing  the 
number  of  I/O  calls  required.  At  a  minimum,  a  better 
language  would  allow  at  least  an  identifier  at  a  time  to  be 
real,  while  the  ideal  language  would  allow  a  large  amount  of 
data  to  be  read  into  a  buffer,  which  could  then  be  scanned 
and  used  as  needed,  only  more  efficiently  because  it  is  in 
main  memory.  If  the  interpreter  were  reading  from  a  disk,  a 
logical  amount  of  data  to  be  read  at  one  time  would  be  an 
entire  track. 

C.  THE  CEIL  AMD  THE  REPRESENTATION  OF  ATOMS  AND  LISTS 

1 .  Atoms 

In  ELC,  as  in  LISP,  there  are  only  two  elements, 
atoms  and  lists.  A  terns  are  n cn-di visible  entities  such  as 
integers,  real  numbers,  characters,  and  identifiers.  For  a 
complete  breakdown  of  atoms  and  the  rest  of  the  language 
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II.  INTERPRETS B  OPERATIONS 


A.  A  SSUHPTIONS 

It  is  assumed  that  the  reader  has  a  working  knowledge  of 
recursion  and  recursive  languages,  in  particular  Pascal.  If 
not  refer  tc  Cooper  [Ref.  9]  fcr  information.  The  reader 
must  also  have  knowledge  of  the  Extended  Lambda  Calculus  as 
presented  by  MacLennan  [Ref.  6].  Complete  descriptions  of 
these  areas  are  beyond  the  scope  of  this  report. 

The  interpreter  is  a  prototype  system,  so  priorities 
were  given  to  successful  operation  and  to  clarity  of  code 
rather  than  to  efficiency.  Efficiency  was  not  completely 
forgotten  and  suggestions  on  future  improvements  in  this 
area  are  given  in  Chapter  4,  Conclusions. 

B.  PASCAL  IS  THE  IBP1EMENTATI0N  LANGDAGE 

Pascal  was  chosen  as  the  implementation  language  for  the 
interpreter  for  two  reasons.  First,  Pascal  is  the  high 
level  language  taught  to  Computer  Science  students  at  the 
Naval  Postgraduate  School.  I  nplementa tion  of  the  inter¬ 
preter  in  Pascal  will  thus  facilitate  its  future  use  by 
students  without  the  necessity  of  learning  a  new  language. 
Second,  using  Pascal  demonstrates  that  an  interpreter  of 
this  type  can  be  written  in  alnost  any  programming  language 
providing  that  it  has  recursion.  Pascal,  however,  is  not 
the  ideal  language  for  this  type  of  project. 

1  •  Pascal  Does  Have  Some  Advantages 

The  principal  advantage  of  Pascal  is  the  ability  to 
dynamically  allocate  memory,  which  takes  the  burden  of 
managing  an  array  or  heap  space  away  from  the  programmer. 
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infinite  loops.  For  examples  of  such  programs  see  HacLennan 

[Ref.  6], 

Is  the  halting  problem  a  reason  to  disregard  the  value 
of  functional  progamming?  If  it  is,  then  all  other  program¬ 
ming  languages  should  be  discarded.  It  is  not  unusual  for 
programmers,  using  conventional  languages,  to  occasionally 
write  programs  that  go  into  infinite  loops. 

Finally,  another  reason  why  functional  programming 
languages  are  not  currently  popular  is  that  they  do  not  work 
very  efficiently  on  conventional  architectures.  As  stated 
previously,  most  current  architectures  are  von  Neumann  in 
nature,  meaning  they  are  sequential.  The  result  is  that  the 
inherent  parallelism  of  the  functional  languages  cannot  be 
exploited.  There  is  work  being  done  to  design  new  architec¬ 
tures,  some  specifically  for  functional  languages.  One  of 
the  most  promising  is  the  reduction  architecture  proposed  by 
Mago,  which  is  described  in  [Ref.  8]. 


+  :  <  1 ,  2> 
FP 

■  T1  il  2  1 


<call  <var  sum>  <con  1>  <con  2>> 
ELC 


Figure  1.2  Sua  in  Three  Functional  Languages. 

are  the  other  implementations  mere  readable  because  of  their 
conciseness?  The  pcint  is  that  readability  means  different 
things  to  different  ^eople.  It  also  depends  to  a  certain 
degree  on  training.  A  programmer  well  versed  in  FP  will 
undoubtedly  feel  comfortable  with  the  FP  version  and  might 
find  the  ELC  notation  too  verbose  and  wasteful.  On  the 
other  hand,  a  person  not  familiar  with  FP  or  KRC  may  be  able 
to  tell  more  about  what  the  function  is  supposed  to  do  by 
reading  the  ELC  version. 

The  conclusion  is  that  the  readability  issue  is  not  a 
good  reason  to  abandon  functional  programming.  Of  course 
there  is  a  certain  amount  of  learning  time  required,  as  with 
any  language,  and  it  may  even  be  more  severe  in  this  case 
due  to  the  mathematical  nature  cf  these  languages.  However, 
if  the  benefits  of  exploiting  parallelism  and  decreasing 
software  maintenance  costs  can  be  achieved,  they  will  far 
outweigh  the  disadvantage  of  a  longer  learning  period. 

Another  problem  area  that  has  kept  the  popularity  of 
functional  languages  to  a  minimum  is  the  halting  problem  as 
described  by  HacLennan  £Bef.  6  1.  As  stated,  since  func¬ 
tional  programs  are  constructed  from  expressions,  evaluation 
order  does  not  matter.  This  is  true,  however,  only  for 
problems  that  halt.  It  is  possible  to  write  some  functional 
programs  in  such  an  order  that  will  cause  them  to  go  into 
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fact: 

proc  (n)  recursive  returns  (fixed)  ; 
del  (n,  v)  fixed; 
if  n  <  2 

then  v  =  1; 

else  v  =  e  *  fact(n  -  1)  ; 
return  (v)  ; 
end  fact; 

Pl/I 


Figure  1.1  Factorial  Erogram  in  FP  and  PL/I. 

is  easier  to  prove  functional  programs  correct,  software 
maintenance  costs  could  improve  dramatically.  Early's 
project  also  demonstrated  this  fact  in  that  the  assembler 
written  in  C  took  sixty  hours  to  complete  compared  to  twenty 
for  the  FP  version.  One  of  the  main  reasons  for  this  fact 
was  that  debugging  time  for  the  FP  version  was  negligble. 
This  was  attributed  to  the  fact  that  FP  programs  do  what  you 
expect  of  them  since  they  are  so  easily  proven  correct. 
Functional  languages  are  not  without  their  critics  and  prob¬ 
lems,  however,  a  fact  which  merits  discussion. 

There  are  those  that  will  argue  that  functional 
languages  should  not  be  used  because  they  are  not  readable. 
This  varies  somewhat  depending  on  the  functional  language 
being  studied.  In  Figure  1. 2  there  are  three  examples  of 
functions  to  take  the  sum  of  twe  numbers.  They  are  written 
in  Backus'  FP,  Turner's  KRC,  and  ELC. 

What  does  "readable"  really  mean?  Is  the  ELC  function 
more  readable  because  it  is  obvious  that  a  function  is  being 
called  (because  of  the  explicit  use  of  the  word  "call") ,  or 
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function  eval  (e.  a:  list):  list; 
var  T,C,e1p:  list; 
e  1 :  alia ; 

begin 

if  atomp(e)  then  eval  ;=  e 
else  begin 

elp  :=  first  (e)  ; 
el  :=  elpal.aval: 

if  el  =  'list*  then  eval  :=  evlis  (rest  (e)  ,  a) 

else  if  el  =  'finset'  then  eval  :=  e 

else  if  el  =  'con*  then  eval  :=  first}  rest  (e)  ) 

else  if  el  =  'var'  then  eval  :=  assoc [  a, 

first  (  r  est  \e) }  ) 

else  if  el  =  'ietrec'  then  eval  :  = 
letrec  (first  {  rest(ei), 
first  (rest  (rest  (e)  )  ] , 
first  (rest  (rest  (res t  (e)  )))  .  a) 
else  if  el  =  ^lambda'  then  begin 
new  (C,  alf)  ; 
celicount(1,  ’eval’); 
with  C3  do  begin 
tag  : =  alf : 
aval  :=  ’closure’; 
end; 

eval  :=  cons(  cons(C.e)  ,  cons(a.nil)  ); 
end  (if  el  =  'lambda'} 

else  if  el  ='if'  then  eval  :=  evcon  (  rest  (e)  ,  a) 
else  if  el  =  'call*  then 

eval  :=  apply  (eval  (first  (rest  (e)  )  ,a)  , 
evlis (rest (rest (e) j -a) ) 
else  if  el  =  ’apply’  tnen 

eval  ;=ap  ply  (eval  (first  (rest  (e) )  ,a)  , 
eval  (first  (rest  (rest  (e)  ))  ,  a)  ) 
else  lr  et  =  'let'  then  begin 

(First-  evaluate  actual  parameters  and  then 
form  the  environment  of  evaluation  for  the 
let  statement} 

T:=  pair  lis  (evlis  (first  (  first(  rest  (e)  )  )  ,  a), 
evlis  (  f  irst  (rest  (  first  (  rest  (e)  )  ) )  ,  a),  a) 
eval  := 

evai  (f  irst  (res  t  (rest  ( first  (rest  (e)  ))))  ,  T)  ; 
end 

else  errormsg ( ' e val ’ )  ; 
end 

end  (Function  eval} ; 

’5)'  Indicates  pointer 


Figure  2.6  Function  Eval. 

Clist  a  b  c> 

the  rest  of  the  list  or  <a  t  c>  is  returned. 

•  con  'Con'  tells  the  interpreter  that  the  remainder  o 
the  list  is  a  constant,  so  it  is  returned  as  such, 
Examples  are: 
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<  <first  <prim  first>>  <rest  <prim  rest>>.  .  .  > 
- - - 


Figure  2.7  Primitives  Association  List. 

<con  1>  =  1 

<con  <1  2  3  > >  =  <1  2  3> 

•  l&L  The  keyword  var,  tells  the  interpreter  to  search  the 
current  environment  of  execution  for  the  value  of  a 
certain  bound  variable.  For  example,  if  <var  x>  was 
sent  to  eval  and  the  association  looked  like 
<<x  5 >  <y  ’Navy ’ >  <z  1430>.  .  .> 
eval  would  return  the  value  of  5  for  x.  The  search  of 
the  association  list  is  performed  by  the  assoc  function 
of  the  interpreter.  Refer  to  the  source  code  for  the 
interpreter  found  in  Appendix  C  for  a  more  detailed 
discussion  of  the  assoc  function. 


<lambda  <x>  <call  <var  sum>  <v’r  x>  <var  x>>> 


Figure  2.8  Lam  Ida  Expression. 


•  Lambda  expressions  are  ELC’s  analog  to  the  proce¬ 

dure  of  conventional  programming  languages.  Ihese 
expressions  are  templates  for  solving  certain  problems 
using  variables  that  must  be  bound  to  actual  values 
before  evaluation  can  take  place.  This  template  is 
commonly  known  as  an  abstraction.  The  example  given  in 
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2.8  is  a  lambda  expression  that  can  take  any  x,  where  x 
is  an  integer  or  real  number,  and  add  it  to  itself.  It 
is  currently  not  executable  because  no  actual  value  for 
x  is  present.  Since  evaluation  cannot  be  completed 
until  later,  the  interpreter  prepares  the  lambda  expres¬ 
sion  for  future  execution  by  forming  a  closure.  This  is 
accomplished  by  using  the  primitive  cons  to  add  the 
keyword  'closure1  to  the  front  of  the  lambda  expression 
and  then  using  cons  once  again  to  add  this  to  the  front 
of  the  current  environment,  which  has  been  placed  in  a 
list  by  itself.  All  that  is  left  is  to  bind  x  with  a 
value  and  add  that  to  the  current  environment  for  execu¬ 
tion  to  take  place.  This  is  accomplished  by  the  apply 
function,  which  is  triggered  by  the  keyword  'call'. 

i - 

<call  <var  sum>  <con  2>  <con  3>> 

Call  to  Primitive  Function 

<call  <lambda  <x>  Ccall  <var  sum> 

<var  x> 

<var  x»<con  5>> 

User  Defined  Function 


Figure  2.9  Using  Call  to  Invoke  Functions. 


•  call  The  keyword  'call'  evokes  the  interpreter  function 
apply  to  evaluate  ELC  function  calls.  The  two  simple 
examples  given  in  Figure  2.9  are  of  a  direct  call  to  a 
primitive  function  and  a  call  of  the  lambda  expression 
discussed  in  the  last  section  with  the  actual  value  of 
5.  The  execution  of  each  is  traced  below.  Refer  to 
Figure  2.6  to  follow  the  trace. 

<call  <yar  sum)  <ccc  2>  <con  3>> 
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Note:  The  recursive  nature  of  the  interpreter 

is  now  clear,  even  for  such  a  simple  program. 
This  point  affects  efficiency  and  should  be 
considered  as  an  area  for  future  improvement. 

call  < lambda  <x>  < call  <var  sum> 

<var  x> 

<var  x>> >  <c  on  5>> 

'call'  recognized 

<lambda  <x>  <call  <var  sum>  <var  x>  <var  x>>> 
sent  to  eval  with  current  environment. 

'lambda1  recognized  and  a  closure  is  formed  as 
follows  «closure  lambda  <x>  <call  <var  sum> 
<var  x>  <var  x>>>  a  >  where  a  is  the  current 
environment . 

<con  5>  is  sent  tc  eval;  5  is  returned. 

The  closure  and  5  are  sent  to  function  apply. 

In  function  apply  'closure'  is  recognized,  so 
the  body  of  the  function  call  Ccail  <var  sum> 
<var  x>  <var  x>>  is  sent  to  function  eval.  But 
an  environment  must  be  created  before  evalua¬ 
tion  can  be  completed. 

x,  5,  and  the  current  environment  is  sent  to 
function  pairlis  where  the  new  environment  is 
created  by  forming  an  attribute  value  pair  of 
x  and  5,  <x  5>,  and  adding  this  to  the  current 
environment . 

Evaluation  of  the  function  now  proceeds  as  the 
first  example,  except  when  <var  x>  is  sent  to 
eval  the  new  environment  is  searched  finding 
the  value  5. 
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The  consistency  between  how  primitive  and  user 
defined  functions  are  evaluated  is  now  clear.  This  regu¬ 
larity  aids  the  programmer  because  only  one  convention  must 
be  remembered  to  invoke  all  functions. 


<if  <<cail  <var  egual>  <con  0>  <con  3>> 
<con  'true’> 

<ccn  ’false'>» 


Figure  2.10  E1C  Conditional. 


•  if  The  keyword  'if1  signals  that  the  remainder  of  the  list 
is  a  conditional  statement,  so  the  rest  of  the  list  is  sent 
to  function  evcon,  which  first  determines  the  value  of  the 
first  sublist,  which  must  in  turn  be  a  call  to  one  of  the 
Boolean  functions.  In  Figure  2.10, 

<call  <var  equal>  <con  0>  <con  3>> 
is  the  condition.  Function  evcon  sends  the  conditional  to 
function  eval  with  the  current  environment  of  evaluation. 
If  the  condition  is  not  a  Boolean  function  call  an  error 
will  cccur.  If  the  condition  evaluates  to  true,  the  result 
of  evcon  is  the  evaluation  of  the  next  sublist  by  eval.  If 
the  condition  is  false,  the  result  is  the  evaluation  cf  the 
last  sublist.  In  the  example,  since  0  and  3  are  not  equal 
the  conditon  is  false  so  the  last  sublist  is  sent  to  eval, 
resulting  in  the  constant  ’false*  being  returned. 

•  If-trec  The  keyword  ’letrec'  is  a  signal  to  create  a 
special  environment  fcr  the  evaluation  of  a  recursive  func¬ 
tion.  See  Figure  2.11.  There  are  four  elements  that  must 
be  considered: 

•  function  name  In  this  case  'append' 
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•  la»kda  expression  The  abstraction 

•  bo4)£  --  le tree  Call  to  the  function  itself  or 

another  letrec  expression. 

•  current  environment 

As  with  the  normal  function  call  a  closure  is  formed  and 
this  is  added  to  the  front  of  the  current  environment.  The 
difference  is  that  the  environment  part  of  the  closure 
points  back  to  the  point  where  the  closure  was  inserted  in 
the  current  environment.  This  is  done  so  the  function  can 
be  recursively  called  if  need  be  or  other  var  parameters  can 
be  locked  up  in  the  environment.  See  Figure  2.11  to  see  how 
the  environment  for  the  append  function  is  constructed.  As 
stated,  letrec  statements  can  be  nested  by  including  them  as 
the  tody  of  another  letrec,  thus  allowing  the  programmer  to 
call  any  of  the  recursive  functions  above  it  in  the  body  of 
the  last  recursive  function.  These  functions  can  only  look 
back  and  not  forward.  For  exanples  see  Appendix  B,  Sample 
Programs. 

•  Let  The  'let'  statement  is  sittpiy  a  sugared  version  of  the 
lambda  statement  and  is  included  for  clarity.  Instead  of 
wr it ing 

<call  <lambda<x>  <call  <var  sum> 

<var  x> 

<var  x>>>  <con  5>> 

the  let  statement  allows  you  to  write  the  expression  in 
Figure  2.12.  In  general,  <let  <<x...>  <y...>  <B>>>  means 
let  x  equal  y  in  expression  B.  Any  number  of  arguments  can 
be  included  in  the  lists  beginning  with  x  and  y.  This  type 
expression  is  particularly  valuable  if  you  want  to  assign  a 
user  defined  function  (lambda  expression)  a  name  which  can 
then  be  called  at  any  time.  Consider  the  doubling  function 
in  Figure  2.12.  The  doubling  function  could  have  been 
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-> 


i: 


ltaq  = 

1st  ! 

1  ref  = 

2  j 

|  head 

1  tail  | _ 

Itag  = 

1st  l 

I  ret  = 

2  1 

|  head 

|  tail  |_ 

tag  = 

alf  j 

ref  = 

1  1 

aval 

=  fname| 

■>  To  current 
environmen  t 


T 


_|head  |  tail  | — >  nil 


To  theO- 
closure 


ltaq  = 

1st 

1  r  er  = 

1 

| head  | 

tai  1 

< — 


|tag  =  1st 
->  j  ref  =  1 


I 


- j  head  |  tail  | 

To  the  environment  -  ~ 


i — >nil 


Figure  2.11  Letrec  Environment. 

accomplished  using  a  single  lambda  expression  as  in  Figure 
2.3,  but  the  let  statement  makes  the  function  call  expres¬ 
sion 

<cail  <var  double>  <con  2>> 

clearer.  Once  again,  expressions  can  be  nested  by  inserting 
another  ’let’  statement  for  the  3  expression  or  even  a 
'letrec1  statement.  Examples  are  given  in  Appendix  C, 
3d m p 1 e  Programs. 
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<let  <<double>  <lambda  <x> 

<call  <var  sum> 
<var  x> 

<var  x>>> 

<call  <var  double> 
<con2>>>> 


Figure  2.12  Doofcling  Function. 

•  §££il  The  keyword  ’apply*  triggers  much  the  same  action  as 
’call*,  except  the  arguments  to  the  function  are  placed  in  a 
separate  list  as  in 

<apply  <var  sum>  <list  <con  2>  <con  3>>> 

The  reason  this  feature  is  included  is  that  some  of  the 
useful  ELC  programs  require  that  arguments  be  reversed 
before  functions  are  applied  to  them.  This  can  only  be 
accomplished  if  they  are  placed  in  a  list  so  a  recursive 
function  call  can  reverse  the  elements.  There  is  no  primi¬ 
tive  function  included  to  handle  this  situation. 

2 •  Fr  in ti nq  Results 

After  function  eval  has  completed  evaluation,  the 
result  is  in  a  tree  form  exactly  like  that  described  for  the 
program  itself.  A  pointer  to  the  top  of  this  tree  is  passed 
to  procedure  printval,  which  simply  walks  the  tree  and 
prints  the  information  found  in  the  leaves.  This  is  done  by 
checking  the  tags  of  the  cells.  If  a  cell's  tag  is  '1st', 
there  is  no  information  in  the  cell,  only  head  and  tail 
pointers.  Since  it  is  a  list  a  left  bracket  must  be 
printed.  At  that  point  the  left  and  right  cells  are  sent  to 
printval  recursively  until  a  cell  other  than  a  '1st'  cell  is 
found.  These  jells  are  obviously  leaves  of  the  tree  so  the 
variant  portion  of  the  cell  is  printed.  This  continues 
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until  a  tail  pointer  of  one  of  the  '1st'  cells  is  nil.  This 
signals  the  end  of  the  list  sc  a  right  bracket  is  printed 
and  evaluation  is  completed. 

F.  MEMORY  MANAGEMENT 
1 .  Cvervie  w 

Throughout  the  executicn  of  a  program  many  of  the 
cells  that  are  created  become  useless  because  they  can  no 
longer  be  accessed.  Good  examples  of  this  are  any  of  the 
binary  functions  included  in  the  interpreter  as  primitives. 
For  example/  consider  the  sum  function.  Figure  2.13.  Notice 
that  two  pointers  are  delivered  to  the  sum  function  which 
point  to  the  cells  that  contain  the  numbers  to  be  added. 
After  these  numbers  ar  added,  the  results  are  placed  in 
another  cell.  The  two  cells  that  held  the  intermediate 
results  are  no  longer  needed  and  should  be  returned  to  a 
free  list  to  be  used  again  latter.  Another  example  is  the 
creation  of  new  environments  fcr  lambda  expressions  before 
they  are  evaluated.  After  the  evaluation  of  the  lambda 
expression,  the  cells  that  made  up  the  attribute  value  pair 
that  was  added  to  the  current  environment  are  no  longer 
needed  and  should  be  returned. 

Since  this  is  a  prototype  system,  reference  counting 
was  chosen  as  the  memory  management  method  because  of  its 
simplicity  and  ease  of  installation.  The  model  followed  is 
outlined  by  MacLennan  in  [Ref.  6].  Reference  counts  refer 
to  the  number  of  pointers  that  a  particular  cell  has  refer¬ 
encing  it  at  any  one  time.  This  count  is  kept  in  an  addi¬ 
tional  field  in  each  cell.  Refer  to  Figure  2.4  to  see  the 
reference  counts  for  a  simple  list.  Reference  counts  must 
be  incremented  if  additional  references  to  cells  are  made. 
Reference  counts  in  cells  must  be  decremented  if  references 
are  destroyed.  References  can  be  destroyed  by  overwriting 


function  sum(x,  v:  list)  :  list; 
var  R,I:  list; 
begin 

if  {xa>  .tag=int)  and  (ya.  tag  =  int)  then  begin 
if  empty  then  begin 
new  (I ,  int)  ; 
cellcountp,  ’sun’); 
end 
else 

I  :=  freecell; 
with  la)  do  begin 
ref  : =  0 ; 
tag  : =  int ; 

I5).ival  :=  xai.ival  +  yd.ival; 
end; 

sum  :=  I; 
end 

else  if  (xS.tag  =  rea)  and  (y 2.  tag=rea)  then  begin 
if  empty  then  begin 
new  (R  ,  rea)  ; 
cellcountp,  ’sun'); 
end 
else 

H  :=  freecell; 
with  R3>  dc  begin 
ref  :  =  0  ; 
tag  : =  rea ; 

Ra.rval  :=  xd.rval  +  ya).rval; 
end ; 

sum  ;=  R  ; 
end 
else 

errormsg  ('sum’)  (Type  mismatch} 
end;  {Function  sum] 

*  5) *  Indicates  Pointer 


Figure  2.13  function  Sum. 

pointers  with  other  pointers  by  using  an  assignment  state¬ 
ment  or  if  the  cell  containing  the  pointer  itself  becomes 
inaccessible.  Whenever  a  cell’s  reference  count  becomes 
zero  it  can  be  returned  to  the  system  because  it  is  no 
longer  accessible  by  the  program. 

The  interpreter  manages  reference  counts  through  the 
use  of  four  procedures: 

•  l^rassn  Overwrites  pointers 

•  deer  Decrements  cell  reference  counts 
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•  return  Returns  cells  to  the  free  list 

•  freecell  Retrieves  cells  frcm  the  freelist 
Figure  2-14  shows  how  function  ftrassn  works. 


i— > 

[Tag  =  a  If 
ref  =  1 

1  1 — >TIS?  11T  "T 

aval  =  'yes’ 

]  |aval  =  'no' 

Cells  x  and  y  before  entering  ptrassn 

Y 

| 

tag  = 

air  T 

i - >TFag  =  aTT  J 

ref  = 

0  1 

| ref  =  2  | 

aval  = 

=  '  yes  '  I  ] 

- >  |  aval  =  'no’ | 

x  :=  y  accomplished  by  function  ptrassn 


Figure  2.  14  Function  Ptrassn. 

First,  the  reference  count  of  the  cell  that  x  points  to  is 
decremented.  Next  the  reference  count  of  y  is  incremented. 
Finally  x  is  assigned  the  value  of  y.  It  is  important  that 
the  assignment  statement  be  done  last  so  the  reference  count 
of  x  can  be  decremented.  If  not  done  x  would  no  longer 
point  to  the  correct  cell  and  the  reference  count  of  y  would 
actually  be  decremented. 

Procedure  deer  is  used  to  decrement  the  reference 
counts  of  all  cells.  If  a  reference  count  of  a  cell  goes  to 
zero,  deer  is  recursively  called  over  the  entire  list  until 
all  cells  with  references  of  zero  are  found  und  returned  to 
a  freelist  maintained  by  procedure  return. 
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Procedure  return  links  all  the  tree  cells  together 
by  first  Baking  them  all  ’1st'  cells  and  linking  them 
through  the  tail  fields  with  the  tail  field  of  the  last  cell 
in  the  list  being  set  to  nil. 

Freeceli  is  a  procedure  that  is  used  to  recover 
cells  from  the  freelist  instead  of  creating  newcells  by 
using  the  Pascal  new  facility.  Each  location  in  the  inter¬ 
preter  that  needs  to  create  new  cells  first  checks  to  see  if 
the  freelist  is  empty.  If  it  is  not,  a  cell  is  taken  from 
the  freelist  instead  of  creating  a  new  one.  Actually  a 
freelist  is  not  necessary.  Cells  could  be  returned  to  the 
system  using  Pascal’s  dispose  feature.  Since  this  is  a 
prototype  system,  the  freelist  is  maintained  to  make  it 
easier  to  maintain  statistics  cn  the  number  of  cells  being 
returned . 

2.  conventions 

a.  Ceil  Creation 

The  reference  counts  of  cells  are  set  to  zero 
when  they  are  created.  This  nust  be  done  so  that  when  a 
program  is  read  into  the  interpreter  reference  counts  in  all 
cells  are  set  to  one.  To  understand  this,  study  the  cons 
function  which  is  used  to  build  up  the  program  list  when  it 
is  initially  read.  Cons  uses  the  ptrassn  procedure  to  set 
the  head  and  tail  of  the  connecting  cells.  If  a  cell  is 
created  during  readin  and  its  reference  count  is  set  to  one, 
that  reference  count  will  go  to  two  when  that  cell  is  sent 
to  cons.  The  result  is  a  reference  count  that  is  greater 
than  it  should  be.  If,  however,  the  cell  is  created  with  a 
reference  count  of  zero,  it  will  be  set  to  one  when  it  is 
sent  to  cons,  which  in  turn  sets  the  head  and  tail  of  the 
connecting  ceil  with  the  ptrassn  procedure.  The  Oi.iy 
special  case  that  must  be  recognized  is  the  ceil  at  the  very 
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top  cf  the  program  tree  which  trust  be  physically  set  to  one 
after  readin  since  it  is  never  sent  to  the  ptrassn 
procedure. 

t.  Local  Declarations 

If  locally  declared  pointer  variables  are  used 
to  overwrite  other  pointers  their  reference  counts  must  be 
decremented  before  the  procedure  they  are  declared  in  is 
completed.  This  is  done  because  locally  declared  variables 
are  only  visible  within  the  procedures  they  are  declared  in 
and  then  destroyed.  If  the  reference  counts  they  genereated 
are  not  decremented,  excess  reference  counts  to  some  cells 
are  the  result. 

c.  passed  Parameters 

The  reference  courts  of  cells  referenced  by 
pointer  variables  passed  to  procedures  or  functions  by  value 
must  he  incremented  upon  entering  the  procedure  and  decre¬ 
mented  when  leaving  the  procedure.  It  is  easy  to  see  how 
cells  can  be  recovered  in  this  manner.  If  the  reference 
count  of  a  cell  is  zero  when  it  enters  a  procedure  it  will 
be  incremented  to  one  during  the  execution  of  the  procedure 
and  then  decremented  to  zerc  and  reclaimed  when  the 
procedure  is  finished. 
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Function  Reverse 
Purpose 

Takes  any  list  as  an  argument,  reverses  the  elements  of 
the  list  ana  places  them  in  another  list. 

Practical  Application 

Reverse  is  used  primarily  as  a  sub-function  for  larger 
programs.  It  is  the  nature  cf  recursion  that  many  times 
result  lists  are  constructed  in  reverse  order.  The  reverse 
function  is  then  needed  to  regain  the  proper  order. 

Discussion 

There  are  two  versions  of  reverse  included,  reverse  and 
revaux.  Reverse  makes  use  of  the  primitive  'conr 1  to  build 
the  result  list  where  revaux  utilizes  a  null  list,  (<>)  ,  to 
iuild  the  result  list  using  a  series  of  calls  to  'cons'.  It 
is  interesting  to  study  the  differences  in  efficiency 
between  the  two  functions.  Reverse  is  faster  and  uses  less 
memory.  The  reason  is  because  the  primitive  conr  was 
included  in  the  interpreter,  which  shortens  the  number  of 
steps  required.  Whether  time  and  memory  savings  justify 
including  another  primitive  in  the  interpreter  depend  on  how 
often  it  is  used.  The  use  of  the  reverse  function  is 
minimal  and  would  not  justify  including  a  primitive  only  for 
its  use. 

Source  Cede 

<letrec  reverse 
Clamhda  <L> 

<if  <<cail  <var  null>  <var  L>> 

<con  <>> 

<cali  <var  conr> 

<cali  <var  reverse> 

<cali  <var  rest>  <var  L>>> 

Ccall  <var  sut>  <var  L>  <cot  1>>>>>> 
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83 

rea Jval 

704 

108 

nonblank 

714 

25 

r  eadlist 

77  0 

1 

readint 

32  7 

199 

digit 

c  3  q 

257 

letter 

843 

57 

readident 

86  7 

83 

read val 

879 

1  1 

evcon 

380 

157 

e  vlis 

881 

52 

apply 

832 

1 

letrec 

884 

190 

eval 

947 

1 

letrec 

10  12 

1  1 

evcon 

1041 

157 

e  vlis 

1093 

4  1 

applyprim 

1196 

52 

apply 

1 2  3  Q 

28 

dcp  r im 

1261 

1 

readf name 

System  time  was 
User  time  was 


Statist  ics 


366  milliseconds 
6600  milliseconds 


| Module 

I - 

1  dcpr im 
Icons 
|  readiden 
|  readint 
|  letrec 
|  nail 


Cells  created 
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402 

57 

1 

6 
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Total  cells  561 

Profile  for  append  function 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984  testll.p 
Profiled  Thu  Dec  13  09:05  1934 

Line  Count 

1  1  fane 
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21 

print val 

36 

505 

cellcoant 

63 

1477 

nul  lp 

84 

3123 

first 

94 

1692 

rest 

122 

402 

cons 

258 

10 

sub 

539 

190 

atomp 

547 

1477 

nulip 

564 

1  1 

null 

599 

94 

a  ssoc 

6  4  3 

33 

pairiis 

66  3 

21 

print  val 

5  1 
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<call  <var  append> 

<iist  <con  gXcon  h>  <cor.  j>> 

<list  <cor.  p>  <c on  rXcoi  s>>>>! 

Fesults  cf  Append  Function  (Compiled  Interpreter) 

Enter  Expression 

C < 1 1  n  f  c  g  li  g  e  g  i  f  -j  g  1  f  1,  j  /  j f  x  g  m f  n  f  o  f  p#  a  #  r  f  sf  t  ^ 
Evaluaticn  Completed 


System  time  was 
User  time  was 


Sta  tis  t ics 

183  milliseconds 
6  16  milliseconds 


1  .loduie 


Cells  created  | 


| dc; r im 
icons 
| readiden 
| readint 
| letrec 
|  null 


Total  cells  561 

Results  cf  Append  (E1C  Interpreter  interpreted  by  Berkeley 
Pascal) 

Enter  Expression 

kUf  Cf  c  j  d  g  0^  i  f  j  f  n ,  i  f  j  f  j  j  If  m  f  n  f  o  f  p/  a  §  r  f  s  f  t  i 
Evaluaticn  Completed 
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APPEND  II  B 
SAMPLE  PfiCGBAMS 

General 

The  statistics  in  this  appendix  are  referred  to  as 
compiled  versus  interpreted.  This  means  compiled  and  inter¬ 
preted  versions  of  the  ELC  interpreter.  Also  all  statistics 
refer  to  programs  run  on  an  interpreter  without  a  memory 
manager.  Run  times  are  much  slower  when  the  memory  manage¬ 
ment  system  is  used. 

Zui^ti.21:  Append 

Purpose 

The  append  function  concatenates  lists.  This  is 
different  than  the  primitive  cons  which  makes  its  first 
argument  the  first  element  of  another  list. 

Practical  Application 

Append  could  be  useful  if  the  argument  lists  were  large 
databases  that  had  to  be  combined.  This  is  common  practice 
in  database  work  where  many  small  databases  are  combined  to 
form  a  whole. 

Source  Code 

Cletrec  append 
<lamida  <L  M> 

<if  <<call  <var  nuli>  <var  L>> 

<var  M> 

<call  <var  cons> 

<caii  <var  subXvar  LXcon  1>> 

<var  append> 

<call  <var  restXvar  L>> 

< var  M>>  >>>> 
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<call 


<condi tionaI> i f< boolean  e  xp.  > 

<list> | <Iook up  v/ar>  |  Ccor.st  exp.>| 

<prim  applic.>  l  <booledn  exp.  > 

<list> 1 <1 ock up  var>|<const  exp.>J 
<prim  appl ic. > | <booiean  exp.> 

<boolean  exp.>  ::=  '<call  <var’  <boolean  prim>  *>>' 

<booiean  prim>  ::=  a  torn! null  jequal  1  membl  GT |  LT|  GE  |  LE 

<prim  call>  ::=  '<var*  <primname>  *>' 

<pr i mname> : : =f irst | r est jcons|atCiiiinulllsuinjsubt|prod|divi|sub| 
equal llen|memblrepr|GT| LT|LE| GE 

<prim  applic.>: :=' <call'<prim  call><list>ee 1 | 

<icckup  var> eel J (const  exp.>ee1  *>' 

<list>  : :=  '<  list'  <letter>ee  1  |  <letter>ee1  <list>ee1| 

<number>ee1  <number>ee 1 

<list>ee1  <letter>  eel 

<number>  eel  '  >' 

<lookup  var>  ::=  *<  var '  <letter> J <identif ier>  '>' 

<const  exp.>  '<  ecu'  <number>ee1  |  <iist>  |  <letter>  ’>' 

<actuals>  ::=  <list>  J  <lookup  var>  |  <const  exp.>  | 

<iookup  var>  <lookup  var> 

<list>  eel  <list>  eel 

<const.  exp->  Cconst.  exp.> 

<letter>  ::=  <a..z|A..Z> 

<number>  <  digit>ee  1  j  <digit>  ee  1  <diqit>ee1 

<di q it>  : : =  <0 . . 9> 

<atom>  ::  lett er | number | identif  ier 
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APPENDIX  A 
ELC  GRAMMAR 


Mote:  1  '  denotes  literal  ccpy. 

ee  denotes  superscript,  (eel  means  one  or  more> 


<ELC  program>  ::=  atcm| list | <recursive  exp. > | <abstract  ion>| 

<applicat ion> j <let>  '!' 

Recursive  exp.>  ::=  *<  letrec'  <rec  identifier> 

<lambda  exp.>  <body>  *>• 

<body>  :  :=  '<call  '  <rec  identifier>  <actuals>| 

<recursive  exp.>|<let>  '>' 

<rec  ider.tifier>  ::=  <identifier> 

<identifier>  ::=  <letter>  ee  10  |  «letter><number  |  letter>>ee1  0 
Note:  Ten  or  less  letters.  Corresponds  to  the  Berkeley 

Pascal  built  in  string,  packed  array  1..10  of  char. 

<abstraction>  ::=  '<  lambda1  Cbound  variables> 

<abstraction  body>  1>1 


<iet>  ::=  1 <le t< 1 <bo und  variables>  *<* 

< abstract ion > |<application>| 
<primitive  application  >| 
<conditional> | <r ecursive  exp.>  1>1 

<appl ication>  ::=  •<*  <lambda  exp.>  <actuals>ee1  •>' 

<Lound  variables>  ::=  <letter>  ee  1 1  <identifier>  eel 

<aLstracticn  body> : : = ’< 1 Ccondi t iona 1>| <pr im  cali>| 

<abstraction>1> 1 
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data  must  be  inserted  in  the  pregram  itself.  This  could  be 
done  easily  by  modifying  the  interpreter  to  recognize  key 
words  that  trigger  a  read  operation. 

Finally,  the  interpreter  should  be  written  in  a  more 
portable  version  of  Pascal.  Berkeley  Pascal  has  several  non 
standard  features  such  as  the  alfa  type  that  make  its  code 
machine  dependent. 

D.  LESSONS  LEARNED 

Writing  programs  in  BLC  becomes  easier  with  experience. 
This  was  primarily  because  detailed  programs  are  built  by 
combining  several  smaller  programs.  For  example,  the 
program  that  generates  the  trig  table  is  made  of  six  func¬ 
tions,  each  a  program  in  its  cwn  right.  Once  the  single 
function  programs  are  tested,  they  can  be  easily  and  reli¬ 
ably  used  to  build  other  programs. 

ELC  programs  also  force  the  user  to  think  about  problems 
as  a  whole  when  programming.  For  example,  when  writing  the 
append  function  one  asks  the  guestion,  "How  would  I  physi¬ 
cally  solve  this  problem?".  lie  answer  is  by  taking  one 
element  at  a  time  from  one  list  and  adding  that  element  to 
the  second  list  until  the  first  list  is  empty.  That  expla¬ 
nation  is  exactly  how  to  solve  the  problem  recursively  and 
the  ELC  program  reflects  that.  If  a  conventional  language 
was  used  to  solve  the  problem,  however,  the  programmer  would 
have  to  be  concerned  with  many  low  level  constructs  such  as 
assignment  statements  and  counter  variables.  After  seme 
experience,  dealing  with  problems  at  a  uigher  level  became 
ve  y  comfortable,  particularly  because  many  of  the  problems 
encountered  were  solved  using  the  same  technique. 
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B.  STRUCTURING  PROGRAMS 


Programs  are  contained  in  one  list  so  they  can  be 
written  in  one  line,  but  this  does  not  always  present  a 
clear  view  of  what  the  program  does.  A  natural  method  of 
structuring  ELC  programs  evolved  through  experience.  The 
method  is  to  stack  the  arguments  of  functions  under  their 
calls.  For  example,  consider  this  call  to  the  primitive 
function  cons. 

<call  <var  cons> 

Clist  a  b> 

<list  c  d  e>> 

This  convention  becomes  very  useful  in  large  programs  when 
many  functions  must  be  nested.  The  conditional  can  be 
structured  as 

<i£  <<cail  <boolean  exp.> 

<True  conseguert> 

<False  consequent>» 

Once  again  the  arguments  are  stacked  for  clarity. 

C.  FUTURE  IMPROVEMENTS 

Ihere  are  several  improvements  that  can  immediately  be 
accomplished  for  the  interpreter. 

The  code  could  be  made  more  English  like.  This  could  be 
done  by  writing  a  front  end  to  translate  a  higher  level  code 
into  the  E1C  code  used  in  this  report  or  by  completely 

changing  the  ELC  grammar.  fchile  making  more  readable 

programs  this  feature  would  decrease  efficiency. 

In  the  opposite  direction  the  code  could  be  made  more 
mathematical  in  nature,  similar  to  the  notation  used  by 
Eackus  in  FP.  The  tradeoff  in  that  case  would  be  efficiency 
versus  readability. 

A  feature  should  also  be  added  to  allow  data  for  the  ELC 

programs  to  be  read  from  the  terminal  or  a  file.  Currently 
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tnese  values  and  subscript  them  based  on  the  number  of 
scoping  lines  crossed  in  gettin  from  a  use  of  the  variable 
to  its  definition.  A  detailed  explanation  of  this  method  is 
given  by  MacLennan  [Hef.  6].  The  beauty  of  this  method  is 
that  it  eliminates  the  overhead  of  managing  the  pointers  of 
the  association  list  and  the  need  to  recursively  search  it, 
both  very  expensive  operations  in  terms  of  efficiency. 

Comparisons  are  also  made  in  Appendix  3  between  two 
recursive  ELC  programs  and  their  Pascal  counterparts.  The 
programs  calculate  n  factorial  and  generate  the  first  n 
elements  of  the  Fibonacci  sequence.  The  Pascal  programs  run 
faster,  which  is  not  suprising  because  there  is  one  less 
layer  of  software  invloved  in  their  execution.  The  time 
differences  are  less  than  a  second,  however,  and  with 
minimal  improvements  to  the  interpreter  can  be  improved. 

Finally,  a  more  efficient  memory  managing  system  should 
be  implemented.  Programs  executed  with  the  memory  manager 
are  very  slow  as  can  be  seen  by  comparing  the  run  times  of 
the  programs  listed  cn  the  last  page  of  Appendix  3  with 
their  execution  times  without  the  memory  manager.  A  mark, 
and  sweep  system  would  be  more  efficient  because  the  execu¬ 
tion  of  a  program  would  not  be  impeded  unless  all  the  allo¬ 
cated  memory  was  used.  On  the  other  hand,  the  reference 
counting  system  invokes  memory  management  procedures  and 
functions  throughout  program  execution.  Since  most  programs 
will  not  use  all  allocated  meaory  they  would  run  at  near 
normal  speed  (normal  speed  being  the  time  to  execute  a 
program  without  the  memory  manager).  The  tradeoff  is  that 
the  interpreter  will  have  to  allocate  its  own  heap  space  and 
manage  it. 
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IV.  CONCLUSIONS 


A.  EPFICIEHCY 

Appendix  B  contains  statistical  data  for  several  SLC 
programs.  Times  for  program  execution  are  given  for  both 
interpreted  and  compiled  versions  of  the  interpreter.  It  is 
not  suprising  that  the  compiled  version  always  ran  much 
faster  and  is  recommended  for  use.  The  interpreted  version 
of  the  ELC  interpreter  was  used  throughout  development, 
however,  because  it  took  half  the  time  that  compiling 
required. 

Profiles  for  all  sample  pregrams  are  also  included  in 
Appendix  C.  These  profiles  reveal  hints  on  how  the  inter¬ 
preter  could  be  more  efficient.  The  data  shows  that  the 
interpreter  spends  most  of  its  time  in  the  primitive  func¬ 
tions,  such  as  null,  first,  sum,  etc..  Efficiency  could  be 
improved  by  writing  these  functions  in  a  lower  level 
language,  such  as  assembly  language,  and  then  linking  these 
modules  in  at  run  time.  This  wculd  not  Le  difficult  because 
these  functions  are  very  short  and  they  are  all  constructel 
in  the  same  manner,  e.g.,  all  the  3oolean  functions  are  the 
same  except  for  the  condition  being  checked.  When  the  lower 
level  code  is  completed  for  one  of  the  modules  it  could  be 
used  as  a  template  for  the  others. 

Efficiency  can  also  be  improved  by  replacing  the  associ¬ 
ation  list  mechanism  for  looking  up  the  value  of  variables. 
Since  the  pairlis  function  always  adds  new  attribute  value 
pairs  to  the  front  of  the  current  environment  before  evalua¬ 
tion,  it  is  clear  that  searching  an  association  list  is  not 
always  necessary  because  we  knew  the  value  is  at  the  front 
of  the  list.  A  better  method  is  to  use  an  array  to  hold 
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C.  EHROB  MESSAGES 

The  best  way  to  become  familiar  with  the  ict er pre ter * s 
error  messages  is  to  study  the  error  handling  procedure  of 
the  interpreter  itself.  Appendix  C.  The  procedure  is  set  up 
like  a  table  displaying  all  the  error  messages  and  they  can 
be  easily  traced  back  to  their  sources.  The  interpreter  is 
designed  to  halt  exection  immediately  upon  detection  of  an 
error . 
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At  this  point  programs  can  he  typed  directly  from  the 
terminal  and  executed.  To  step  execution  follow  the  last 

program  with  a  •!'.  A  statistical  summary  is  given  showing 
the  numier  of  cells  created,  number  of  cells  returned  to  the 
system,  and  time  of  execution  before  termination. 
Evaluation  is  successfully  completed  with  the  message 

Evaluation  Completed. 

If  a  long  program  is  to  be  executed,  it  is  recommended  to 
place  it  in  a  file  so  editing  can  be  accomplished,  if  neces¬ 
sary.  The  command  tc  interpret  a  program  from  a  file  is 

ob  j 

The  interpreter  then  responds  with  a  prompt  to  ask  for  the 
name  of  the  file  where  the  program  exists. 

File  for  ELC  Program: 

The  filename  can  be  up  to  eighty  characters  in  length. 

B.  EXECUTION  TEACE 

After  the  method  of  loading  the  program  is  determined, 
the  user  is  guestioned  if  a  trace  is  desired.  A  trace 
prints  out  pertinent  intermediate  resuits  as  the  program  is 
executed  to  help  in  debugging.  Two  examples  of  items 
printed  out  are:  each  expression  sent  to  function  eval  and 
results  of  looking  up  a  var  parameter  in  an  association 
list.  Not  all  expressions  can  be  printed  out  because  some 
structures  are  recursive  and  ar  attempt  to  print  them  out 
results  in  ar.  infinite  loop.  To  avoid  infinite  loops  addi¬ 
tional  questions  are  asked  about  the  user's  desire  to  print 
out  certain  structures  when  there  is  a  possibility  that  they 
could  be  recursive.  Invoking  the  trace  facility  obviously 
slows  execution  a  great  deal  tut  can  be  quite  helpful  in 
debugging  a  program. 
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III.  HUMAN  INTERFACE  S1TH  THE  INTERPRETER 

A.  LOADING  A  PROGRAM 

The  interpreter  is  activated  by  first  compiling  or 
interpreting  it  using  the  facilities  of  Berkeley  Pascal 
under  Unix  4.2  BSD  as  shown  in  the  following  example: 

Interpreted  Code 

'pi'  <filename  of  the  interpreted 1  .  p  1 

Compiled  Code 

'pc'  <filename  of  the  inter preter>*  .  p * 

If  interpreted,  an  executable  file  named  'obj'  is  created; 
if  compiled,  an  executable  file,  'a. out'  is  created.  The 
complied  version  runs  much  faster  as  seen  by  the  time  of 
execution  statistics  located  in  Appendix  3,  Sample  Programs. 
It  is  recommended  that  the  names  of  these  files  be  changed 
to  something  more  intuitive,  such  as  '  ELC’  or  'Interp', 
etc.  . 

The  interpreter  can  be  run  in  interactive  mode  or  a 
program  can  be  executed  from  another  file.  Interactive  mode 
should  only  be  used  for  short  programs  or  if  the  interpreter 
is  being  used  as  a  calculator  to  perform  basic  mathematical 
computations.  The  big  drawback  to  interactive  use  is  that 
no  editing  can  be  done  on  programs  tnat  are  longer  than  one 
line  when  typing  at  the  terminal.  If  interactive  mode  is 
desired,  the  following  command  should  be  issued.  Interpreted 
code  is  assumed  in  all  examples. 

obj  i 

The  'i'  toggle  tells  the  interpreter  that  interactive  mode 
i-  desired.  A  logon  message  with  date  and  time  appears 
next,  followed  by  the  prompt: 

Enter  Expression 
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<call  <var  re verse>  <list  abcdefghi  j>>>>! 


Results  of  reversing  a  ten  element  list  (Compiled  version) 

Enter  Expression 

<3*  i#  h#  g,  f,  e,  d,  c,  b,  a> 

Evaluation  Completed 


Statistics 


System  :ime  was 

100 

mil liseconds 

User  time  was 

516 

mi  1  liseconds 

| Module 

Cells  created 

i  ”  '  ' 

I  dcpr im 

84 

Icons 

323 

| readiaen 

42 

1  r eadint 

1 

I letrec 

6 

I  nu  11 

11 

I  conr 

9 

Total  cells  476 

Reversing  a  ten  element  lis  t  (  i  rt  er  preted) 

Enter  Expression 

^3#  l g  U/  g  0  —  t  e  ^  d  t  c,  b  ^  a  ^ 

Evaluation  Completed 


316  milliseconds 
5716  milliseconds 


System  time  was 
User  time  was 


| Module 

Cells  created 

1 

i 

1 dcpr im 

34 

1 

I 

Icons 

323 

1 

| readiden 

42 

1 

| readint 

1 

1 

| letrec 

6 

1 

|  null 

1 1 

1 

|  conr 

9 

1 

Total  cells 

476 

Profile  of  reverse  function 

Berkeley  Pascal 

PXP  —  Version  2. 

12  (5/11/83) 

Wed  Dec  12  12:48 

1  9  84  test  1 1  •  f 

Profiled  Thu  Dec 

13  09:08  1984 

line 

Count 

1 

1 

f  unc 

33 

11 

pr int val 

36 

420 

cellcount 

63 

1349 

nullp 

84 

2861 

first 

94 

1545 

rest 

122 

323 

cons 

13"7 

10 

conr 

258 

10 

sub 

539 

169 

atomp 

547 

1349 

nullp 

564 

1  1 

null 

599 

33 

assoc 

6  4  3 

22 

pair lis 

66  3 

1  1 

pri nt val 

702 

67 

r  eadval 

fi 


Function  Eevaux 

Sour ce  Code 

<ietrec  revaux 
Clambda  <L  M> 

<if  <<call  <var  nuil>  <var  L>> 

<var  M> 

<call  <var  revaux> 

<call  <var  rest>  <var  L>> 

<call  <var  cons> 

<call  <var  sub>  <var  L>  <con  1>> 
<var  M> 

>>>>> 

<cail  <var  revaux> 

<list  abcdefghij> 

<con  <»  >>! 

Results  of  Revaux  (10  element  list,  compiled) 

Enter  Expression 

<j,  i/  h,  g,  £,  e,  d,  c,  b,  a> 

Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  166  milliseconds 

User  time  was  566  milliseconds 


1  null 
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Total  cells  532 

Results  of  re  vaux  (interpreted). 

Rater  Expression 

<j,  i*  1/  £/  e,  d ,  c,  b,  a> 

Evaluation  Completed 

********************4********** 4* ********4 ***************** 

Statistics 

System  time  was  366  milliseconds 

User  time  was  6333  milliseconds 


| Module 

Cells  created  | 

1 

| dcpr im 

—  —  --  | 

84  | 

|  cons 

383  | 

1 r eadiden 

47  t 

J  r eadint 

1  | 

I letrec 

6  1 

I  nu  1 1 

11  1 

Total  cells 

532 

Profile  of  Revaux 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984  testll.p 
Profiled  Fri  Dec  14  22:46  1984 

Line  Count 

1  1  func 

33 


36 


1  1 

47b 


prin t val 
ceilcount 


63 

1466 

nullp 

84 

3104 

first 

94 

1672 

rest 

122 

583 

cons 

253 

10 

sub 

539 

180 

atomp 

547 

1466 

nullp 

564 

1 1 

null 

599 

94 

assoc 

643 

33 

pairlis 

702 

74 

readval 

704 

100 

nonblank 

714 

26 

r eadlist 

770 

1 

readint 

827 

178 

digit 

835 

226 

letter 

843 

47 

readident 

867 

74 

readval 

879 

1  1 

evcon 

880 

146 

e  vlis 

881 

52 

apply 

882 

1 

letrec 

884 

180 

eval 

947 

1 

letrec 

1012 

1  1 

evcon 

1041 

146 

evlis 

1093 

41 

applyprim 

1198 

52 

apply 

1239 

28 

dcpr im 

1261 

1 

readf name 

59 


Map  Functional 
Purpose 

Functionals  are  functions  that  return  otner  functions  as 
results.  The  map  functional  allows  the  user  to  take  any 
unary  function  and  apply  it  to  the  elements  of  a  list, 
returning  a  list  of  the  results.  In  this  example,  the  sine 
function  is  mapped  across  a  list  of  ten  angles. 

Pract ical  Application 

Map  could  be  used  extensively  in  business  applications. 
An  example  would  be  an  employee  database  where  the  same 
operations  must  be  accomplished  on  many  different  records. 
If  salaries  were  increased  across  the  board,  a  version  of 
map  could  be  used  to  achieve  this. 

Source  Code 

<letrec  map 
<lambda  <i> 

<iambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<call  <var  cons) 

<call  <var  f>  <call  <var  firstXvar  L»> 
<call  <call  <var  map>  <var  f>> 

<call  <var  rest)  <var  L>>>>>>>> 
<call  <cali  <var  map>  <var  sin» 

<iist  <con  45>  <con  6  0  <con  90>>>  >! 

Results  of  map  functional  (map  sine) Compiled 
Enter  Expression 

<0.707107,  0.866025,  1.000000,  0.913545,  0.573576, 

0.  342020  ,  0.4226  18  ,  0.275637,  0.939693,  0.999  3'-)  1> 

Evaluation  Completed 


60 


System  time  was 
'Jser  time  was 


Statistics 

216  milliseconds 

683  milliseconds 


j Module  Cells  created 


Jdcprim  84 

| cons  445 

Ireadiden  52 

Ireadint  10 

lletrec  6 

|eval  11 

|  null  11 

|sinp  10 


Total  cells  629 

Map  sine  (interpreted) 

Enter  Expression 

<0.707107,  0.866025,  1.000000,  0.913545,  0.573576, 
0.342020,  0.422618,  0.275637,  0.939693,  0.999391> 

Evaluation  Completed 


***********************  *********************************** 

Statistics 

System  time  was  416  milliseconds 

User  time  was  7666  milliseconds 
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|  letrec 

6 

|  eval 

1 1 

|  null 

1 1 

1  sinp 

10 

Total  cells 

629 

Profile  for  map 

functional 

Berkeley  Pascal 

PXP  --  Version  2. 

12  (5/11/83) 

Wed  Dec  12  12:48 

1  984  test  1 1 .  p 

Profiled  Thu  Dec 

13  10:15  1984 

Line 

Count 

1 

1 

f  unc 

33 

1 1 

prin t val 

36 

573 

cellcount 

63 

1666 

nullp 

84 

3579 

first 

94 

1955 

rest 

122 

44  5 

cons 

411 

10 

sinp 

539 

212 

atomp 

547 

1666 

nullp 

564 

1  1 

null 

599 

104 

assoc 

645 

44 

pair lis 

6  6  3 

1 1 

printval 

702 

103 

r°adval 

704 

144 

nonblank 

714 

4  1 

r eadlist 

77  0 

10 

readint 

827 

217 

digit 

835 

279 

letter 

843 

52 

r eadident 

62 


367 

103 

r  eadval 

87S 

1  1 

evcon 

880 

167 

evl  is 

881 

73 

apply 

882 

1 

letrec 

884 

212 

e  val 

947 

1 

letrec 

1012 

1  1 

evcon 

1041 

167 

evlis 

1093 

51 

a  pplyprim 

1198 

73 

apply 

1239 

28 

dcpriin 

1261 

1 

r  eadfname 

6  3 


Halving  Function 
Purpose 

The  halving  function  takes  a  list  of  numbers  and  returns 
a  list  of  all  the  elements  divided  in  half. There  is  really 
no  practical  application  for  this  function  but  it  demon¬ 
strates  the  use  of  the  'bu'  functional  which  changes  a 
binary  operator  to  a  unary  operator.  If  you  divide  a  list 
of  integers  by  2  it  is  more  efficient  to  fix  the  second 
operand  of  the  division  instead  of  evaluating  2  as  a 
constant  each  time  the  division  takes  place. 

<letrec  map 
Clamtda  <f> 

<iamtda  <L> 

<if  <<cali  <var  null>  <var  L>> 

<con  <>> 

<cali  <var  con s> 

Ccall  <var  f>  <call  <var  firstXvar  L»> 

<call  <call  <var  map>  <var  f>> 

<call  <var  rest>  <var  L>>>>»» 

<lex  <<bu>  <<lambda  <f  k> 

<lambda  <x> 

<call  <var  f>  <var  k>  <var  x>>>>  > 

<let  <<revf>  <<lambda  <f> 

<lambda  <x  y> 

<call  <var  f>  <var  y>  <var  x>>>>> 

<cail 

<call  <var  map> 

<call  <var  tu> 

<call  <var  revf>  <var  divi>> 

<con  2»> 

Clist  <con  4>  <con  6>  <con  3>  <con  13>> 

>>>>>>! 

Results  of  halving  function  (co  mpiied) 


64 


Enter  Expression 
<  2,  3,  4, 

13,  14,  1 5> 


S,  10, 


11, 


12, 


Evaluation  Completed 


System  time  was 
User  time  was 


Statist ics 

183  milliseconds 

9o6  milliseconds 


i Mod  ule 

Cells  created  | 

1  ‘  " 

|  dcpr  im 

1 

84  | 

|  cons 

b  74  | 

| readiden 

37  | 

| readint 

11  j 

| ictrec 

6  1 

I  ev al 

15  | 

(null 

11  1 

|  di  v  i 

10  I 

Total  cells 

898 

Results  of  la  iving  (interpreted) 

Enter  Expression 

<  2,  3,  4,  5,  10,  11,  12, 

13,  14,  1 5  > 


Evaluation  Completed 


System  time  was 


Statist  ics 

433  milliseconds 


User  time  was 


10183  ail lisecon Js 


|  Module  Ceils  created 


Idcprim  34 

Icons  674 

Ireadiden  37 

l readint  1 1 

1 letrec  6 

leval  15 

i  n  u  1 1  11 

I  liv i  10 


Total  cells  398 


Profile  for  halving  function  (use 

of  bu)  . 

Berkeley  Pascal 

PXP  —  Version  2. 

12  (5/11/83) 

V:ed  Dec  12  12:48 

1984  test  1 1 .  p 

Profiled  Thu  Dec 

13  10:03  1934 

Line 

C  ount 

1 

1 

rune 

33 

1  1 

printv.il 

36 

842 

ceiicoun 

63 

2057 

null  p 

84 

4420 

first 

94 

2494 

rest 

122 

674 

cons 

10 

ii  vi 

53  9 

335 

atom  p 

547 

2057 

n  ul  1  p 

564 

1  1 

null 

54  9 

166 

assoc 

66 


b  43 

103 

pair iis 

663 

1  1 

print  val 

702 

168 

r eadval 

704 

233 

nonblank 

714 

70 

r  eadiist 

77  0 

1  1 

r eadint 

327 

350 

di«jit 

835 

44  8 

letter 

843 

87 

readident 

867 

168 

r«=ad  val 

875 

1  1 

evcon 

880 

240 

e  vlis 

881 

95 

apply 

882 

1 

letrec 

884 

30  5 

eval 

947 

1 

letrec 

1012 

1  1 

evcon 

1041 

240 

e  vlis 

1093 

51 

drtjlyprim 

1193 

95 

apply 

1239 

28 

dcpr  iir. 

126  1 

1 

r eadf name 

| equal 

1806  I 

J  sum 

255  | 

|  1  en 

4  11  | 

Total  cells 

57682 

Profile  for 

frequency  table  function 

- 

Berkeley  Pascal  PXP  —  Version  2.12 

(5/1  1/83) 

Wed  Dec  12  1 

2:48  1984  testll.p 

Profiled  Thu 

Dec  13  10:20  1934 

Line 

Count 

1 

1  rune 

33 

19 

prin  tval 

36 

57626 

cellcount 

62 

180  6 

equal 

o  3 

664983 

nullp 

8U 

1404922 

first 

94 

74  3026 

rest 

1  22 

4  9559 

cons 

153 

255 

sum 

273 

2267 

equa lp 

29  1 

1806 

e  q  u  a  1 

5  39 

7  0799 

a  tomp 

547 

664983 

nullp 

564 

4554 

null 

576 

1233 

lenp 

587 

41  1 

len 

5  9  9 

36403 

assoc 

643 

1  0367 

pair lis 

r  6 

1  9 

print vai 

702 

530 

redJval 

70a 

744 

non blank 

714 

214 

read  list 

6  1 


V 


1 


'V.."’  ■  L.'  *7*7  ’VV 


|  null  4  5  54 

|  mem  L  b66 

| egual  1806 

|  su  id  2  55 

|len  411 


Total  cells  57682 


Results  of  frequency  table  generator  (interpreted) 


Enter  Expression 


<<text,  1> 

,  <of,  1> 

,  Cblock,  1> 

,  <the,  1> 

,  < is,  1> 

,  <  T  h i s  ,  1> 

> 


Evaluation  Completed 


Systen  time  was 
Oser  time  was 


Statistics 
23900  milliseconds 
1990866  milliseconds 


| Module 

Cells  created  | 

i 

|  J  c  p  r  i  m 

84  i 

|  cons 

49559  | 

| readiden 

313  | 

|  readir. t 

3  | 

I le  t  rec 

30  | 

|  ev  a  1 

1  | 

1  null 

4  5  54  | 

|  mem  1 

o  6b  | 

3  0 


<var  T>> 


<cali  <var  f r e i j > 

<call  <var  rest> 
<var  T»>> 


<con  1>> 
< ccn  <>>>>>>>> 


<cali  <var  freq> 

<call  <var  repr> 

<finset  This  is  the  block  of 


Results  of  frequency  table  generator  (compiled) 
Enter  Expression 


<<text/  1> 

,  <  o  f  /  1> 

,  <hlock,  1> 

,  <  t  he ,  1> 

/  <is,  1> 

,  <This,  1> 

> 


Evaluation  Completed 

***************: 

System  time  was 
User  time  was 


*****  **  * 


Sta  tis  t ics 
49  16  milliseconds 
157966  milliseconds 


l^oduie  Cells  created 


|  d  c  p  r  i  m 

34 

i  cons 

49559 

|  re  adi  Itii 

313 

| readi nt 

3 

|  let  re c 

30 

J  e  v  a  1 

1 

79 


<if  <<call  <var  equal> 

<var  k> 

<call  <var  first> 

<cali  <var  first>  <var  T>>>> 
<call  <var  first> 

<call  <var  rest> 

<call  <var  first>  <var  T>>>> 
<call  <var  lookup> 

<call  <var  rest>  <var  T>> 

<var  k>> 

»>>> 

<let  <<occur>  <<lamhda  <w  F> 

<if  <<cali  <var  egual> 

Ccali  <var  memb> 

<var  w> 

<cali  <var  dom> 
<var  F>>> 

<con  true>> 

<call  <var  iooKup> 

<var  F> 

<var  w>> 

<COL  0>>>>> 

<letrec  freg 
<iamtja  <~> 

<if  <<call  <var  r.  u  1  i>  <var  T>> 

<cor.  <>> 

<cali  <var  overlay> 

<cail  <var  freg> 

<call  <var  rest>  <var  r>>> 

<cali  <var  cons> 

<call  <var  £ irst>  <  var  I>> 

<call  <var  cors> 

<call  <var  sum> 

<ca  il  <  var  occur > 

<c a  1 1  <var  first > 

79 


< vdr  T>>> 

<cali  <var  rest> 

<call  <var  dom> 
<var  T>>>> 


<con  true>> 

<con  false> 

<call  <var  isfinfunc> 

<cail  <var  rest> 

<var  T>>>>> 

<cor.  £alse>>>>>> 

Cletrec  overlay 
<lamlda  <T  pr> 

<if  <<call  <var  equal> 

<call  <var  isfin£unc>  <var  T>> 

<con  true>> 

<if  <<call  <var  nuil>  <var  T>> 

<call  <var  cons)  <var  pr>  <con  <>>> 

<i£  <<cdll  <var  equal> 

<call  <var  fir s t>  <var  pr>> 
<call  <var  £irst> 

<oall<var  first> 

<var  T>>>> 

<call  <var  overlay> 

<cal 1  <var  rest)  <var  T>> 

<var  pr>> 

<call  <var  cor.s> 

<cdll  <var  £irst>  <var  T>> 

<call  <var  overlay> 

<c ail  <var  rest)  <var  1>> 


<var  pr>>>>>>> 


<con  Tnot f func>>>> 


Cetrec  lookup 
<1  ami la  <T  k> 


<if  <<call  <var  null>  <var  i>> 
<con  aot£ound> 


l£§Si.!i.§nc 2  Table  Generator 
Pur  pose 

This  program  takes  a  finite  set  of  text  and  creates  a 
frequency  table  of  the  words  used  and  how  many  times  they 
are  used. 


Prac t ical  Application 

This  program  could  be  useful  if  extended  to  recognize 
patterns  in  large  blocks  of  data.  Also,  in  military  intel¬ 
ligence  work,  it  could  be  vaulabie  to  see  how  many  times  a 
persons  name  appears  in  a  newspaper  to  gain  some  insight 
into  how  important  they  might  be. 


<letrec  iom 

s  -  uui  suu  '  4-1  S 

<if  <<caii  <var  null>  <var  L>> 

<con  <>> 

<ca  11  <var  cons> 

<call  <var  first> 

<call  <var  first>  <var  L>>> 

<call  <var  dom> 

<call  <var  rest> 

<var  !>>>>>>> 

<letrec  isfinfunc 
<lambda  <T> 

<if  <<call  <var  null>  <var  T>> 

<con  true> 

<if  <<caii  <var  egual> 

<cali  <var  ien> 

<call  <var  first>  <var  T>>> 


<con  2>> 

<if  <<call  <var  e^ual> 

<call  <var  memi;> 

<call  <var  nrst> 

<  c  a  1 1  <var  iom> 


7  6 


94 

1 148 

rest 

122 

395 

cons 

137 

3 

conr 

258 

3 

sub 

411 

3 

sinp 

539 

123 

a  tomp 

547 

988 

nullp 

564 

8 

null 

599 

6  1 

assoc 

643 

23 

pair lis 

663 

4 

printval 

702 

154 

read val 

704 

219 

non blank 

714 

65 

readlist 

770 

4 

r  eadint 

827 

377 

digit 

335 

466 

let  ter 

843 

85 

readident 

367 

154 

r  ea dval 

873 

8 

evcon 

880 

96 

evlis 

881 

39 

apply 

882 

2 

1 etr ec 

884 

123 

e  val 

947 

2 

ietr ec 

1012 

8 

evcon 

1041 

96 

evlis 

1093 

29 

a  ppl yprim 

1198 

39 

apply 

1239 

28 

dc  prim 

126  1 

1 

readfname 

Results  of  compositor  (interpreted) 

Enter  Expression 

<1.000000,  0.866025,  0.707107> 


Evaluation  Completed 

******************$****$********************************** 

Sta  tis  tics 

System  time  was  533  milliseconds 

User  time  was  5966  milliseconds 


| Module 

Cells  create! 

1 

1 

i dcpr im 

84 

1 

1 

Icons 

395 

1 

| readiden 

35 

1 

| readint 

4 

1 

| letrec 

12 

1 

|  eval 

2 

1 

|  n  u  i  1 

8 

i 

|  corr 

2 

1 

|  sinp 

3 

1 

Total  cells 

595 

Berkeley  Pascal 

Wed  Dec  12  12:48 

Profiled  Mon  Dec 

Line 

PXP  —  Version  2. 

1984  test  1 1 .  p 

17  18:51  1984 

C  cunt 

12  (5/11/83) 

1 

1 

f  unc 

33 

4 

print val 

36 

539 

celicount 

63 

S33 

n  uiip 

34 

2111 

first 

<call  <var  rest  > 


► 


<var  L  >>>  >>>> 

<let  <<dot>  <<lambda  <f1  f2> 

<lambda  <x> 

<call  <var  fIXcalKvar  f2Xvar  x>>>>» 

<cail 

<call  <var  dot>  <var  mapsin>  <var  reverse>> 

<list  <con  45>  <con  60>  <con  90>>  >>>>>! 


Results  of  compositor  (compiled) 

Enter  Expression 

<1.000000,  0.866025,  0.707107> 

Evaluation  Completed 


System  time  was 
User  time  was 


Statistics 
250  milliseconds 
6  16  milliseconds 


| Mo  aule 

Cells  created 

1 

|  dcpr  im 

84 

1  cons 

395 

i r eadi  ien 

85 

| readint 

4 

| letrec 

12 

I  eva  1 

2 

j  null 

8 

|  con  r 

2 

|  sinp 

3 

Total  cells 

595 

73 


tifii..!  ■ii.ftAa.i  ■  i' i  ■■utiafcjr.iAfci  ■  m  i.i  1 1  ■  ml,  m  mrnk  ■  A  ■ 


Composition  Functional 
Pur  pose 

Composition  allows  the  output  of  one  function  to  act  as 
the  input  tc  another  function. 

Pr act ical  Application 

Composition  could  be  used  in  business  applications  as  a 
way  of  querying  a  database  with  multiple  conditions.  For 
example,  utilizing  the  filter  function,  a  user  could  ask  for 
records  of  employees  that  satisfy  a  certain  condition  and 
then  apply  another  call  to  filter  with  a  further  refined 
condition  such  as  all  employees  in  department  5  that  make 
more  than  two  thousand  dollars  a  week.  In  this  exa.  _e 
mapsin  and  reverse  are  composed.  The  composition  function 
is  named  dot  to  correspond  to  Backus's  FP  language  which 
actually  includes  this  as  an  operator  in  the  language. 

Source  Cede 

<ietrec  reverse 
<lamfcda  <L> 

<if  <<call  <var  nuil>  Cvar  L>> 

<con  <>> 

<cali  Cvar  conr> 

Ccall  Cvar  reverse) 

Ccall  Cvar  rest)  Cvar  L>>> 

Ccall  Cvar  sut>  Cvar  L>  Ccon  1>>  >>>> 


Cletrec  mapsin 
Clamtda  CL  > 

<if  CCcali  Cvar  null  >  Cvar  L  >> 

Ccon  C>> 

Ccall  Cvar  cons  > 

Ccall  Cvar  sin  > 

Ccall  Cvar  first  >Cvar  L  >>> 
Ccall  Cvar  mapsin  > 


7  2 


| Module 

Cells  creat 

1  _  _ 

|  dcpr  im 

84 

|  cons 

531 

| readiden 

80 

|  readint 

15 

| letrec 

6 

|  null 

22 

|LS 

10 

Total  cells 

743 

Profile  for  collate  function 

Berkeley  Pascal 

PXP  —  Version  2. 

12  (5/11/83) 

Wed  Dec  12  12:48 

1  984  test  1  1  .  £ 

Profiled  Thu  Dec 

13  10:07  1984 

line 

Count 

1 

1 

f  unc 

35 

12 

prin  t val 

36 

692 

cellcount 

63 

2566 

nullp 

r  4 

5526 

first 

8  4 

2921 

rest 

122 

531 

cons 

2  56 

30 

sub 

334 

10 

LEp 

394 

10 

LE 

535 

535 

a  tom p 

547 

2566 

n  u  i  1  p 

564 

22 

null 

59  9 

166 

assoc 

6  4  3 

33 

pairlis 

< 


c 

-  / 


6 


6 


7 


2  /  3,  3, 

8/  9,  10, 

Evaluation  Completed 


1  2> 


Statist  ics 

System  time  was  166  milliseconds 

User  time  was  1066  milliseconds 


|  Module 


j icprim 
Icons 
| readiden 
| readint 
|  letrec 
|  null 


Total  ceils 


Cells  created 


84 

531 

80 

15 

6 

22 

10 


748 


Collate  function  (interpreted) 

Enter  Expression 

<  2/  3,  3,  5,  6,  6,  1, 

3,  9,  10,  1 2> 

Evaluation  Completed 

***********************$$*****£*♦:(<****«:*$**$*£************ 

Stat is  t ics 


Systea  time  was 
User  time  was 


6  33  milliseconds 
11316  milliseconds 


1 


CoLlatinci  function 
Purpose 

Collate  takes  two  sorted  lists  and  merges  them  into  one 
sorted  list. 

Pr act ical  Application 

Sorting  and  collating  are  standard  office  functions  that 
benefit  from  automation.  A  sorting  function  needs  to  be 
combined  with  collate  to  initially  sort  the  sublists. 

Source  Cede 

<letrec  collate 
<lamtda  <L  M> 

<if  <<call  <var  null>  <var  L>> 

<var  :i> 

<if  <<call  <var  null>  <var  .1>> 

<var  I> 

<if  <<call  <var  LE> 

<call  <var  sub>  <var  1>  <con  1» 
<call  <var  sub>  <var  M>  <con  1>>> 
<call  <var  cous> 

<call  <var  sub>  <var  L>  <con  1 >> 
<call  <var  collate> 

<call  <var  rest>  <var  I>> 
<var  d>>> 

<call  <var  cons> 

<call  <var  sub>  <var  H>  <ccn  1  >> 
Ccall  <var  coliate> 

<var  L> 

<call<var  rest> 

<  var  «>>>>>>>>>>> 

<Cdii<vur  col la te>< list  2  5  6  E  12><list  3  J  6  7  9  1 0 > >> ! 

result  of  Collate  Function,  Cocpiled 
Enter  Expression 


68 


770 

read int 

82  7 

1393 

digit 

835 

1709 

letter 

843 

313 

readident 

867 

530 

read  val 

379 

6360 

evcon 

880 

55265 

e  vlis 

88  1 

23613 

apply 

882 

5 

letrec 

884 

70799 

■ :  /al 

947 

5 

letrec 

10  12 

6360 

evcon 

1041 

5  526  5 

e  vlis 

1061 

1115 

membp 

1071 

666 

memb 

1083 

1 

isf inset 

1093 

18804 

a  pplyprim 

1198 

23613 

apply 

1239 

28 

dcpr i  in 

1261 

1 

r  ead frame 

Factorial  f unction 

?i!.r£Ose  Computes  the  factorial  or  n,  where  n  =  0,  1,  2,  ... 

5i§cussicn 

Factorial  functions  written  in  ELC  and  Pascal  have  been 
included  to  compare  the  relative  efficiency  of  the  inter¬ 
preter  versus  a  conventional  high  level  language  compiler. 
Factorial  is  computed  for  n  =  1  to  10.  The  results  are  not 
suprising  in  that  the  Pascal  version  is  much  faster. 

Source  Code  (ELC) 

<letrec  fact 
<lamtda  <n> 

<if  <<cali  <var  egual>  <var  n>  <con  0>> 

<con  1> 

<call  <var  prod> 

<var  n> 

<call  <var  fact> 

<cdll  <var  s ubt>  <var  n>  <con  1>» 

>>>> 

<ca 11  <var  fact>  <con  10>> 

Results  of  ELC  factorial  function  for  n  =  1..10 
fact  (0) 

Enter  Expression 

1 

Evaluation  Completed 

A********************************************************* 

Statist  ics 

System  time  was  33  milliseconds 

User  time  was  233  milliseconds 


j  Module 


Cells  created 


dcprim 

84 

1 

cons 

202 

1 

readiden 

30 

1 

readint 

4 

1 

letrec 

6 

1 

e^ual 

1 

1 

Total  cells  327 

fact  (1) 

Enter  Expression 

1 

Evaluaticn  Completed 

******************:******$***$**  i*************************** 

Statistics 

System  time  was  83  milliseconds 

User  time  was  266  milliseconds 


|  Module 

I - 

|  dc pr im 
I  cons 
|  rcadiden 
|  r eadi nt 
j  let rec 
j  e^ual 
|  suit 
|  prod 


Cells  created 


34 

212 

30 

4 

6 

2 

1 

1 


Total  cells  340 

fact  (2) 

Enter  Expression 
2 

Evaluation  Completed 


34 


***************$******************$$********************** 


Systea  time  was 

User  time  was 

Statist  ics 

133  milliseconds 

233  milliseconds 

| Module 

Cells  created  | 

1 

| dcpr im 

i 

34  | 

Icons 

222  | 

|  r eadi  den 

30  | 

|  readint 

4  1 

|  let  rec 

6  1 

|  e  -i  u  a  1 

3  | 

|  suit 

2  1 

|  prod 

2  1 

Total  cells 

353 

fact  (3) 

Enter  Expression 

6 

Evaluation 

Completed 

*******************************  I******************* 

Statist  ics 

Svsteir  time 

was 

133  milliseconds 

User  time  was 

266  milliseconds 

|  Module 

Ceils  created  | 

1 

|  d  c  p  r  i  a 

34  | 

Icons 

232  | 

1 r e  adiden 

30  I 

|  readir.  t 

4  I 

85 


i 


|  letrec 
|  e^ual 
|  subt 
|  prod 


6 

4  i 

3  I 

3  I 


Total  cells 


366 


fact  (4) 

Enter  Expression 
24 

Evaluation  Completed 


S  tatis  t ics 


System  time  was 

'Jser  time  was 

216  milliseconds 

283  milliseconds 

|  .1o  dule 

Cells  created  | 

1  ~~  — 

| dcpr im 

_  _  j 

34  | 

Icons 

242  | 

| readiden 

30  | 

| readint 

4  I 

| letrec 

6  I 

| e^ual 

5  I 

|  subt 

4  I 

|  prod 

4  I 

Total  ceils 

379 

fact  (5) 

Enter  Expression 
120 

Evaluation  Completed 


System  time  was 
User  time  was 


Statist ics 

116  milliseconds 

350  milliseconds 


| Mod  ule 

Cells 

created  | 

1 

| dcpr im 

84  | 

|  cons 

252  | 

1  readiden 

30  | 

| r  eadint 

4  | 

| letrec 

6  1 

| equal 

6  1 

|  subt 

5  | 

|  pr  od 

5  | 

Total  cells 

fact  (6) 

Enter  Expression 

720 

392 

Evaluation  Completed 

S  tatist ics 

System  time  was 

116  mi  1  li second s 

User  time  was 

4  16  milliseconds 

| Module 

Cells 

created  | 

1 

| dcpr im 

34  | 

Icons 

262  | 

|  r e adi  den 

30  | 

j  readi nt 

4  1 

| let  rec 

6  1 

| equal 

7  I 

|  s  u  b  t 
|  prod 


Total  cells  405 

fact  (7) 

Enter  Expression 
5040 

Evaluation  Completed 

********************************************************** 

Statist  ics 

System  time  was  133  milliseconds 

User  time  was  400  milliseconds 


|  Module  Cells  created 


ldcprim  84 

Icons  272 

Ireadiden  30 

|  readint  4 

| let  rec  6 

| equ  al  8 

|  subt  7 

|  prod  7 


Total  cells  4  1  8 


fact  (8) 

Enter  Expression 
40320 

Evaluation  Completed 


********************************************************** 

S  tatis  t  ics 

System  time  was  133  milliseconds 


83 


User  time  was 


433  milliseconds 


| Module 

Cells  crea 

1 

1  d  c  p  r  i  m 

84 

icons 

282 

| readiden 

30 

| readi nt 

4 

j letrec 

6 

J  e^ual 

9 

|  s  u  b  t 

8 

|  prod 

8 

Total  cells 

431 

fact  (9) 

Enter  Expression 
362  8  80 

Evaluation  Completed 


System  time  was 
User  time  was 


Sta  tis  t ics 

150  milliseconds 

450  milliseconds 


Total  cells 


444 


fact  (10) 

Inter  Expression 
362  3  80  0 

Evaluation  Completed 

Statistics 

System  time  was  183  milliseconds 

User  time  was  450  milliseconds 


| Module 

i  _ 

I 

|  c  cpr  im 
Icons 
|  readiden 
I  readir.t 
| letrec 
|  equal 
|  su It 
|  prod 


Total  ceils 


Ceils  created 


34 

302 

30 

4 

6 

11 

10 

10 


457 
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Factorial  function  written  in  Berkely  Pascal 
Source  Code 

program  fact  (input,  output)  ; 
var  ans,n:i nteger ; 

function  factorial(n:integer) : integer ; 
var  f act : integ er ; 
begin 

if  n  =  0  then 
fact  :=  1 
else 

fact  :=  n  *  (factorial  (n  -  1))  ; 
factorial  :=  fact; 
end;  (function  factorial} 

begin 

writeln ( ' Inpu t  n:  '); 
readln  (n)  ; 

ans  :=  factorial  (n)  ; 
writeln  (an s)  ; 

writeln (’System  Clock  ' , s ysclock;  1 0  millisec’) 
writeln  (’ User  Clock  ',clock:10  ,  '  millisec')  ; 
end.  (Program  fact} 

Results  cf  factorial  function  in  Berkeley  Pascal,  n=  1. 

1  .i  p  u  t  n  =  0 

1 

System  Clock  33  millisec 

User  Clock  16  millisec 

Input  n=1 

1 


System  Clock 
User  Clock 


33  millisec 
0  millisec 


Input  n=2 
2 

System  Clock 
User  Clock 

Input  n  =  3 

b 

System  Clock 
User  Clock 

Input  n=4 
24 

System  Clock 
User  Clock 

Input  n  =  5 
120 

System  Clock 
iser  Clock 

Input  ri  —  6 
723 

System  Clock 
User  Clock 

Input  n=7 
3  0  40 

System  Clock 
User  Clock 


33  millisec 
0  millisec 


33  millisec 
0  millisec 


33  millisec 
0  millisec 


33  millisec 
0  millisec 


33  millisec 
0  millisec 


1  o  millisec 
16  millisec 


Input  n  =  8 
40320 

System  Clock  33  millisec 

User  Clock  0  millisec 

Input  n=9 
362380 

System  Clock 
'Jser  Clock 


Input  n  =  1  0 
3  6  28  300 


System  Clock 

66  millisec 

User  Clock 

16  millisec 

Profile  for  ELC 

factorial  function 

Derkeley  Pascal 

PXP  —  Version  2.12 

(5/11/83) 

Ued  Dec  12  12:43 

1  9  34  test  1 1 .  r 

Profiled  Thu  Dec 

13  09:56  1984 

Line 

Count 

1 

1  f  unc 

3  3 

1 

printval 

36 

40  1 

cel lcount 

6  2 

1  1 

equal 

6  3 

954 

nullp 

S  4 

2064 

first 

94 

1132 

rest 

122 

30  2 

cor.s 

183 

10 

sub  t 

2  03 

10 

prod 

213 

1  1 

equal p 

2  9  1 

1  1 

e  j  u  a  1 

q3  9 

150 

atomp 

33  millisec 
0  millisec 


9  3 


547 

954 

nullp 

599 

73 

assoc 

643 

22 

pair lis 

663 

1 

p  r  i  ii  t  v  a  1 

702 

56 

read  val 

704 

78 

non  blan k 

714 

22 

readlist 

74  1 

0 

readrea 

770 

4 

readint 

827 

129 

digit 

835 

163 

letter 

843 

30 

re a di dent 

867 

56 

rea  d val 

879 

1  1 

evcor. 

830 

115 

evils 

88  1 

42 

apply 

882 

1 

letrec 

384 

150 

eval 

947 

1 

letrec 

1C  12 

1  1 

evcon 

194  1 

115 

e  vlis 

1093 

3  1 

apply prim 

1198 

42 

apply 

1239 

23 

d.  c  it  i  in 

1  4.6  1 

1 

r  eacif  na  me 

<  4 


1 


Sequence  Generation  Program  (No  ’let’  statement) 

Purpose 

This  program  generates  the  first  n  elements  of  the  fifco- 
nacci  sequence. 

Discussion 

This  function  is  educational  in  that  it  shows  how  effi¬ 
ciency  of  ELC  programs  can  be  improved  through  the  use  or 
the  'let'  statement.  The  definition  of  the  Fibonacci 
sequence  is: 

f ib  ( 1)  =  <1> 

fib  (2)  =  <1  1> 

fib  (n  =  3,  4,  .  .  .)  = 

cons  (  (f ib  (n- 1) sub  1)  *  (fib  (n-2)  sub  2)),  fib(r.-l)), 

where  sub  1,  2  means  subscript. 

The  tine  consuming  part  of  this  function,  when  written  in 
ELC,  is  calculating  fib  of  n- 1  three  times  to  find  the  next 
element  of  the  sequence. This  can  me  avoided  by  using  a  let 
statement  to  calculate  fib(n-l)  only  once  for  each  itera¬ 
tion.  The  system  time  taken  tc  generate  £ib(10)  when  using 
the  let  statement  was  approximately  .2  seconds  compared  to 
13  seconds  when  a  ’let'  was  not  used. This  in  not  suprising 
since  when  not  using  the  'let'  the  time  of  execution  will 
increase  exponentially  as  n  increases. 

Notice  also  that  due  to  the  nature  of  recursive 
cons tructicn  of  lists  the  sequence  is  constructed  in  reverse 
order.  To  correct  this  the  reverse  function  is  included  and 
applied  to  the  generated  sequence  before  printing. 

Code 

Cietrec  reverse 
< lambda  <L> 

<if  <<caii  <vai  :.uii>  <var  L>> 

<  c  o  n  <  >  > 


J 
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<call  <var  conr> 

<call  <var  reverse) 

<call  <var  rest>  <var  L>>> 

<cail  <var  sub>  <var  L>  <con  1>>  >>>> 

<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  equal)  <var  n>  <con  0>> 

<c on  <>> 

<if  <<call  <var  equal)  <var  n>  <con  1>> 

<con  <1>> 

<if«call  <var  egual>  <var  n>  <con  2>> 

<  ccn  <1  1» 

<call  <var  ccns> 

<call  <var  sum) 

<call  <var  sub> 

<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1»> 

<con  1>> 

<call  <var  sub> 

<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1»> 


<con  2>» 

<call  <var  fibo> 

<call  <var  subt>  <var  n>  <con  1»» 

»>»» 


<call  <var  reverse) 

<call  <var  fibo)  <con  10>»>>! 


Results  of  fib  (3.  .10)  without  a  let  statement 
fio  (3) 

Enter  Expression 


96 


r 


2 


Evaluation  Completed 

****  ***************************************  *************** 


Statistics 


System  time  was 

User  time  was 

183  millisecond 

733  millisecond 

| Module 

Cells  created  | 

1  — 

| dcpr im 

1 

84  | 

|  cons 

428  | 

1  readiden 

105  | 

| readint 

11  1 

1 letrec 

12  | 

Jequal 

12  | 

|  suit 

3  | 

|  sum 

1  | 

|  null 

4  | 

|conr 

2  1 

Total  cells 

662 

fib  (4) 

Enter  Expression 

<  1,  1, 

2,  3> 

Evaluation  Completed 

********************************************************** 


System  time  was 
User  time  was 


Statistics 
166  milliseconds 
1250  milliseconds 


|  Module 


Cells  created 


Idcprim  84  i 

cons  570  | 

Ireadiden  105  I 

Ireadint  11  I 

lletrec  12  I 

le^ual  39  | 

suit  12  | 

sum  4  i 

null  5  I 

conr  3  I 

Total  cells  845 

fib  (5) 

Enter  Expression 

<  1,  1,  2,  3,  5> 

Evaluation  Completed 

********************************************************** 


Systeir  time  was 
User  time  was 


| Module 


I  dcpr in 
I  cons 
I  re adiden 
|  readint 
I  let rec 
I  e  jual 


Statistics 
216  milliseconds 
2566  milliseconds 


Cells  created  j 


****************** *4******* *******************  ************ 


Statist  ics 


System  time  was 

666 

mi  Hi  sec  onds 

User  time  was 

17766 

milliseconds 

| Module  Cells 

created  j 

1 - 

j  dcpr im 

84 

i 

1 

|  cons 

5748 

1 

] readiden 

105 

1 

|  readint 

11 

1 

| letrec 

12 

1 

| equal 

1092 

1 

|  subt 

363 

1 

|  sum 

121 

1 

|  null 

8 

1 

|  conr 

6 

1 

Total  cells 

7550 

fib  (8) 

Enter  Expression 

<  1,  1, 

2, 

3,  5 

21> 

Evaluation  Completed 

**************************************** 

Statistics 

System  time  was 

1633 

milliseconds 

U se r  t i me  was 

51716 

mil liseconds 

8, 


13, 


j  Mo Jule 


Cells  created  | 


I 


100 


|  dcpr im 
1  cons 
J  readiden 
| readint 
j letrec 
1  equal 
|  subt 
|  sum 
|  null 
|  conr 


16450 


3279 

1092 


Total  cells  21413 

fib  (9) 

Enter  Expression 

<  1,  1,  2,  3,  5,  8,  13, 

21,  34> 

Evaluation  Completed 

**************************************************  ******** 


System  time  was 
User  time  was 


Statist ics 
4650  milliseconds 
154450  milliseconds 


| Module 

, - 

I  dcpr im 
1  cons 
| readiden 
1 readint 
|  letrec 
|  equal 
|  subt 
i  sum 
i  null 


Cells  created  | 


48536 


9840 

3279 

1093 


101 


I  conr 


8 


I 


Total  cells  62978 

fib  (10) 

Enter  Expression 

<  1/  1/  2,  2,  5, 

8,  13,  21,  34,  55> 

Evaluation  Completed 

********************************************************** 

Statist ics 

System  time  was  13100  milliseconds 

User  time  was  458983  milliseconds 


| Module 


Cells  created 


| dcpr im 

84 

i 

1 

I  cons 

144774 

l 

) readiden 

105 

1 

| readint 

11 

1 

| letrec 

12 

1 

I  equal 

29523 

1 

|  su  bt 

9840 

1 

I  sum 

3280 

1 

I  null 

11 

l 

lconr 

9 

1 

Total 

cells 

18764  9 

******************************************************************** 
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ELC  Program  to  generate  the  Fibonacci  Sequence  (Using  a  let 
stat  eaent) 

Source  Code 

<letrec  reverse 
<lambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<call  <var  conr> 

<call  <var  reverse> 

<call  <var  rest>  <var  L>>> 

<call  <var  sub>  <var  L>  <con  !>>>>>> 

<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  egual>  <var  n>  <con  0>> 

<con  <>> 

<if  <<call  <var  egual>  <var  n>  <con  1>> 

<con  <1>> 

<if«call  <var  eguai>  <var  n>  <con  2» 

<con  <1  1>> 

<let  <<f>  <<call  <var  fibo> 

<call  <var  subt> 

<var  n> 

<con  1>>» 

<call  <var  cons> 

<call  <var  sum> 

<call  <var  first> 
<var  f>> 

<call  <var  first> 
<call<var  rest> 
<var  f»» 

< var  f>>>>>>>>>>> 


<call  <var  reverse> 

<call  <var  fibo>  <con  10>»>>  ! 


Results  of  fibonacci  generating  function  with  'let* 
stat eaent 
fib  (3. .10) 

fib  (3) 

Enter  Expression 
<  1/  1/  2> 

Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  133  milliseconds 

User  time  was  700  milliseconds 


|  Module  Cells  created 


Idcprim  84 
Icons  392 
ireadiden  95 
Ireadint  9 
lletrec  12 
legual  6 
|subt  1 
|  sum  1 
Inull  4 
Iconr  2 


Total  cells  606 

fib  (4) 

Enter  Expression 

<  1,  1,  2,  3> 

Evaluation  Completed 

********************************************************** 
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System  time  was 
User  time  was 


Statis  tics 

183  milliseconds 

783  milliseconds 


| Module 

Cells  crea 

i  "  ' 

| dcpr im 

84 

|  cons 

427 

| readiden 

95 

j  r eadint 

9 

| letrec 

12 

| equal 

9 

|  subt 

2 

|  su  m 

2 

|  null 

5 

|  conr 

3 

Total  cells 


648 


rib  (5) 

Enter  Expression 

<  1/  1/  2,  3,  5> 


Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  166  milliseconds 

User  time  was  866  milliseconds 


|  Module  Cells  created 

I -  - 

Idcprim  84 

Icons  462 

Ireadiaen  95 


105 


Ireadint  9 

Jletrec  12 

|equal  12 

|sufct  3 

|  s  a  m  3 

i  null  6 

|conr  4 


Total  cells  690 

fib  (6) 

Enter  Expression 

<  1,  1,  2,  2,  5,  8> 

Evaluation  Completed 

**************************************************  ******** 

Statistics 

System  time  was  133  milliseconds 

User  time  was  1066  milliseconds 


| Module 

Cells  created 

1 

|  dcprim 

84 

|  cons 

497 

I  readiden 

95 

| r eadint 

9 

J  letrec 

12 

|  equal 

15 

|  subt 

4 

(sum 

4 

|  null 

7 

|  conr 

5 

fib  (7) 

Enter  Expression 

<  1,  1,  2,  2,  5,  8,  1  3> 

Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  183  milliseconds 

'Jser  time  was  1100  milliseconds 


|  Module  Cells 

created  f 

1 

| dcprim 

84  | 

|  cons 

532  1 

| readiden 

95  1 

| readint 

9  i 

|  letrec 

12  I 

j  e'-jual 

18  i 

|  subt 

5  1 

|  sum 

5  1 

|  null 

8  i 

I  conr 

6  1 

Total  cells 

77  4 

fib  (8) 

Enter  Expression 

1,  1, 

2/  3,  5, 

3, 

13, 

1> 

Evalu^  ion  Completed 

**  *  *  *  *  .  :*******  ****************  *******************  ******** 

Statist ics 

System  time  was 

183  milliseconds 

’Jser  time  was 

1216  milliseconds 

Total  cells 


1218 


Results  of  restriction  (interpreted) 

Enter  Expression 
<<  6,  5> 

,  <  3,  9  > 

> 

Evaluation  Completed 

********************************************************** 

5ta  tist  ics 


System  time  was 

User  time  was 

516 

17966 

mil liseconds 

mil  2i second s 

| Mo  dule 

Cells  created  | 

I 


|  dcpr im  34 


Icons 

837 

1 

| readiden 

220 

1 

| r eadi nt 

8 

1 

I ietrec 

24 

1 

|  eval 

1 

1 

|  ecual 

12 

1 

|  nu  1 1 

29 

i 

1  len 

3 

1 

Total  cells 

1213 

Profile  for  restriction  program 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

led  Dec  12  12:48  1934  testll.p 

12  1 


<cail  <var  first> 

<var  T»>> 

<call  <var  rest>  <var  T» 

<call  <var  cons> 

<call  <var  £irst>  <var  T>> 

<call  <var  restric> 

<call  <var  rest>  <var  T>> 
<var  k>>> 

<con  Tnotf func>>>>>>» 

<call  <var  restric> 

<call  <var  repr>  <finset  <3  4>  <6  5>  <3  9>>  > 

<con  3>  >»»>>! 

Results  of  restriction  functior  (Compiled) 

Enter  Expression 

«  e,  5> 

/  <  a,  9> 

> 

Evaluation  Completed 

***********************  ********** *****************  ******** 

Statistics 

System  time  was  216  milliseconds 

Jser  time  was  1966  milliseconds 


| Mo  dule 

Cells  crea 

1 

|  dcprim 

34 

Icons 

337 

|  r eadiden 

220 

| readint 

8 

|  letrec 

24 

|  e  val 

1 

|  e  -jual 

12 

I  null 

29 

120 


<con  true> 

<if  <<call  <var  equal> 

<call  <var  ler.> 

<ca 11  <var  first>  <var  T>>> 

<con  2>> 

<if  <<call  <var  equal> 

<call  <var  member> 

Ccall  <var  first> 

<call  <var  firstlist> 
< var  T»> 

<call  <var  rest> 

<call  <var  firstlist> 
<var  T>>>> 

<con  true>> 

<con  false> 

<call  <var  isfinfunc> 

<call  <var  rest> 

<var  T>>>>> 

<con  false>>>>>> 

<let  <<repr>  <<lambda  <T> 

<if  «call  <vai  equal> 

<call  <var  first>  <var  T>> 

<con  finset>> 

<call  <var  rest>  <var  T>> 

<con  nof i nf nc>>>>> 

<letrec  restric 
<lambda  <T  k> 

<if  <<call  <var  equal> 

<call  <var  isfinfunc>  <var  T>> 

<con  true>> 

<if  <<call  <var  null>  <var  X>> 

<con  <>> 

<if  <<call  <var  equal> 

<var  k> 

<call  <var  first> 


119 


Restriction 

Purpose 

Restriction  takes  a  finite  function,  T,  (table  of  attri¬ 
bute  value  pairs),  and  returns  a  finite  function  exactly 
like  1  except  that  cne  of  the  fairs  has  been  removed.  if 
the  pair  to  be  deleted  is  not  a  member  of  the  finite  func¬ 
tion  then  T  is  returned  (this  is  tolerant  evaluation) . 

Pr act icai  Application  Restriction  could  be  used  to  delete 
records  from  a  database. 

Source  Code 

<letrec  member 
<lambda  <x  L> 

<if  <<call  <var  null>  <var  L>> 

<con  false> 

<if  <<call  <var  ecjual> 

<var  x> 

<call  <var  first>  <var  L>>> 

<con  true> 

<call  <var  member> 

<var  x> 

<call  <var  rest>  <var  L>>>>>>>> 

<letrec  firstlist 
<iambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<call  <var  cons> 

<call  <var  first> 

<call  <var  first>  <var  L>>> 

<call  <var  firstlist> 

<call  <var  rest>  <var  !>>>>>>> 

<letrec  isfir.func 
<lambia  <T> 

<if  <<call  <var  null>  <var  T>> 


118 


1 


830 

606 

evlis 

881 

202 

apply 

882 

1 

letr ec 

884 

761 

eval 

947 

1 

letr ec 

1012 

51 

eve  on 

1041 

606 

evlis 

1093 

151 

a  pplyprim 

1198 

20  2 

apply 

1239 

28 

deprim 

1261 

1 

r  eadfname 

117 


]  sum 


50 


Total  cells  1192 


ifile  for  interval  function  m. 

n  1-50 

keley  Pascal 

PXP  --  Version  2. 

12  (5/11/83) 

.  Dec  12  12:48 

1  984  test  1 1 . p 

ifiled  Thu  Dec 

13  13:  54  1984 

line 

Count 

1 

1 

f  unc 

33 

51 

printval 

36 

1136 

cellcount 

63 

5487 

nullp 

84 

1  1793 

first 

94 

6357 

rest 

122 

963 

cons 

158 

50 

sum 

330 

51 

GTp 

340 

51 

GT 

539 

761 

atomp 

547 

5437 

nullp 

599 

454 

assoc 

643 

153 

pairlis 

663 

51 

printval 

702 

63 

r  eadval 

704 

88 

nonblank 

714 

25 

r eadlist 

770 

3 

readint 

827 

151 

digit 

835 

189 

let  ter 

843 

35 

readident 

867 

63 

read val 

879 

51 

evcon 

116 


Evaluation  Completed 

********************************************************** 

Sta  tis  t  ics 

Systeir  time  was  266  milliseconds 

User  time  vas  1716  milliseconds 


| Module 

Cells  created 

i 

1 

1  ~ 

I dcpr im 

34 

1 

|  cons 

963 

1 

| readiden 

35 

1 

1 r eadint 

3 

i 

| letrec 

6 

1 

|  GT 

51 

1 

|  sum 

50 

1 

Total  cells 

1192 

Results  of  interval  (interpreted) 

********************************************************** 

Statistics 

System  time  was  616  milliseconds 

User  time  was  19966  milliseconds 


|  Module 

Cells  created 

1 

I  dcpr im 

34 

1  cons 

963 

(  readiden 

35 

1 readi nt 

3 

1  letrec 

6 

1  GT 

51 

115 


Interval  Generating  Function 
Purpose 

Generates  a  sequence  of  natural  numbers  from  m  to  n, 
where  m,n  are  two  natural  numbers  and  m  <  n. 

Pr act ical  Application 

Interval  is  very  useful  when  generating  tables  of  infor¬ 
mation.  In  the  next  example  interval  is  used  to  generate  a 
table  of  trigonometric  values  for  ail  angles  between  0  and 
90  degrees. 

Source  Code 

<letrec  interval 
<lamtda  <m  n> 

<if  <<call  <var  GT>  <var  a>  <var  n>> 

<con  <>> 

<call  <var  cons> 

<var  m> 

<cali  <var  interval> 

<call  <var  sum> 

<var  m>  <con  1» 

<var  n>>  >>>> 

<call  <var  interval>  <con  1>  <con  50>>>! 


Results  of  interval 

Compiled) 

Enter  Expression 

generation 

program 

(m  =  1, 

n  = 

<  1, 

2, 

3, 

4, 

5, 

6, 

7 

8, 

9, 

10, 

1  1, 

12, 

13, 

1  4 

15, 

16 

17, 

16, 

19, 

20, 

21 

22, 

23, 

24 

25, 

26, 

27, 

28 

29, 

30, 

31, 

32 

33, 

34, 

35 

36, 

37, 

38, 

39, 

40 

41, 

42 

43, 

44, 

45, 

46, 

47, 

48, 

49 

50> 


1 1  4 


fib  (3) 

Input  n: 

J 

1 

1 

2 

System  time 

33 

millisec 

User  time 

0 

millisec 

J 

fib  (4) 

J 

-J 

Input  n: 

.J 

1 

1 

2 

3 

v 

System  time 

50 

millisec 

User  time 

0 

millisec 

- 

fib  (5) 

Input  n: 

1 

1 

2 

3 

5 

System  time 

33 

millisec 

User  time 

0 

millisec 

fib  (6) 

Input  n: 

1 

1 

2 

3 

5 

rr 

8 

System  time 

33 

millisec 

• 

User  time 

0 

millisec 

J 

fib  (7) 

'*  - 

Input  n: 

1 

1 

2 

3 

5 

'* 

8 

13 

“H 

System  time 

33 

millisec 

User  time 

0 

millisec 

fib  (8) 

Input  n: 

-- 

1 

1 

2 

3 

5 

8 

13 

21 

System  time 

33 

millisec 

11  1 

; 

.  - 

I 

:3 


Pascal  Source  Code  for  Fibonacci  Sequence  Generator 

prograa  fib  (input,  output); 
const  max  =100; 
type  seq  =  1 . . max  of  integer; 
var  fibseq:  seg; 
n,c:  integer; 

procedure  fib  (n,i : integer) ; 
begin 

if  i  <=  n  then  begin 

if  <i  =  1)  or  (i  =  2)  then  begin 
f  ibseg  (.  i. )  :  =  1 ; 

fib  (n,  i  ♦  1)  ; 
end 

else  if  i  >=  3  then  begin 

fibseq  (.i.)  :=  f ibs eg  ( . i- 1 . )  +  fibseq  (.i- 

fib (n, i  ♦  1)  ; 
end 
end; 

end;  {procedure  fib} 
begin 

writeln (' Input  n:  ')  ; 
read  (n)  ; 
fib  (n,  1)  ; 

for  c  :=  1  to  max  do  begin 
if  fibseq(.c.)  <>  0  then 
write  (f  ibseq  (.  c. )  )  ! 
end; 

writeln; 

writeln ( ' Sys te m  time' , sysclock : 10, '  millisec') 
writeln (* User  time  ',clock:10,'  millisec'); 
end.  {Program  fib} 

Fesults  of  fibonacci  sequence  generator  in  Pascal 
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fib  (10 

Enter  Expression 

<  1 ,  1 ,  2,  2,  5, 

8,  13,  21,  34,  55> 

Evaluation  Completed 

********************************************************** 

Statistics 

Systeir  time  was  166  milliseconds 

User  time  was  1466  milliseconds 


| Module 


Cells  created  | 


|  Module 

Cells  crea 

1  - - 

|  dcpr im 

34 

Icons 

567 

|  readiden 

95 

|  readint 

9 

|  letrec 

12 

|  e^ual 

21 

1  sutt 

6 

1  sum 

6 

|  null 

9 

|  conr 

7 

Total  cells  816 

fib  (9) 

Enter  Expression 

<  1/  1/  2,  3r  5,  8,  13, 

21,  34  > 

Evaluation  Completed 

Statistics 

Systeir  tile  was  200  milliseconds 

User  time  was  1300  milliseconds 


|  Module  Cells  created 


Idcp.rim  84 
Icons  602 
|  readiden  95 
|  readint  9 
(letrec  12 
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IV-"-'  '  ' 

»  V  «  V  '  r*  vj"  V  ■  J  "  !“■  v  U  -  W  -  T/-  5--  J 

• 

Profiled  Thu  Dec 

13  14:50  1984 

- 

Line 

C  ount 

;r 

1 

1 

f  unc 

33 

7 

printval 

36 

1162 

cellcount 

g 

62 

12 

equal 

63 

4184 

nullp 

84 

8859 

first 

*  . 

94 

4699 

rest 

i 

122 

837 

cons 

273 

12 

equalp 

291 

12 

equal 

- 

539 

44  1 

atomp 

*■ 

• 

547 

4184 

nullp 

564 

29 

null 

576 

9 

leap 

587 

3 

len 

D 

599 

228 

assoc 

643 

69 

pairlis 

. 

» 

663 

7 

printval 

L  ■- 

L  ' 

702 

387 

r eaival 

s 

704 

714 

546 

159 

nonblank 

readlist 

■ 

770 

8 

readint 

, 

327 

1011 

digit 

835 

1239 

letter 

843 

220 

readident 

879 

4  1 

evcon 

880 

325 

evlis 

• 

881 

145 

apply 

1 

332 

4 

letr  ec 

»* 

833 

44  1 

eval 

947 

4 

letrec 

.  • 

10  12 

4  1 

evcon 

122 

1041 

325 

evlis 

1093 

115 

appl ypri m 

1198 

145 

apply 

1239 

28 

dcpr im 

1261 

1 

r  eadf name 

123 


Vector prod uct  Functi cn 
Purpose 

Vectorprod  uct  returns  the  pairwise  products  of  two  lists 
of  numbers. 

Practical  AppI ication 

This  function  could  be  used  to  calculate  the  state  tax 
owed  by  military  employees,  since  different  states  have 
different  rates  of  taxation.  Cne  vector  would  be  the  list 
of  salaries  and  the  other  the  rates  of  taxation. 

Source  Code 

<letrec  map 
<lamtda  <f> 

<lambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<call  <var  cons) 

<call  <var  f>  <call  <var  firstXvar  L»> 
<call  <cail  <var  map>  <var  f>> 

<call  <var  rest>  <var  L>»>»» 

<letrec  prodlist 
<lambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  1> 

<call  <var  prod> 

<call  <var  sub>  <var  L>  <con  1>> 

<cail  <var  proalist> 

<call  <var  rest>  <var  !>>>>>>> 

<letrec  pairlist 
<lamtda  <L  M> 

<if  <<call  <var  equal> 

<call  <var  len>  <var  L>> 

<call  <var  len>  <var  M>>> 

<if  <<call  <*var  null>  <var  L>> 
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<if  <<call  <var  null>  <var  M» 

<con  <>> 

<con  <>»> 

<call  <var  cons) 

<call  <var  cons) 

<call  <var  first>  <var  L>> 

<call  <var  cons) 

<call  <var  first>  <var  M>> 
<con  <»  » 

<call  <var  pairlist> 

<call  <var  rest>  <var  L>> 

<call  <var  rest>  <var  M»>>» 

<con  errorpl>  >>> 

<call 

<call  <var  map)  <var  prodlist» 

<call  <var  pairlist> 

<list  <con  5>  <con  £>  <con  4>  <con  9» 

<list  <ccn  2>  <con  20>  <con  7>  <con  3>>»>>>! 

Results  of  vectorprcd  function  (Compiled) 

Enter  Expression 

<  10,  160,  28,  27> 

Evaluation  Completed 


********************************************************** 


System  time  was 
User  time  was 


Statis  t ics 
216  milliseconds 
1583  milliseconds 


IModule  Cells  created 


i 

Idcpria  84 

Icons  720 

Jreadiden  150 

I  readi n t  10 
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rifv.  .v"-  '  ' 

....... 

...... 

> 

1 

r  ~ 

18 

r 

r. 

| letrec 

1 

r " 

:c 

|  len 

10 

1 

1  equal 

5 

1 

■. 

i  null 

23 

1 

|  eval 

5 

1 

IB 

1  prod 

8 

1 

Total  cells 

1033 

Results  of  vector  product  function  (Interpreted) 

Enter  Expression 

<  10,  160,  28,  2  7> 

Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  483  milliseconds 

User  time  was  15066  milliseconds 


ifile  for  vectorprcd act 

function 

keley  Pascal 

PXP  —  Version  2.12  (5/11/83) 

.  Dec  12  12:48 

1984  test  1 1 .  j 

'filed  Thu  Dec 

13  15:09 

1984 

line 

Count 

1 

1 

f  unc 

33 

5 

printval 

36 

977 

cellcount 

62 

5 

equal 

63 

3579 

nullp 

84 

7535 

first 

94 

4038 

rest 

122 

720 

cons 

208 

8 

prod 

258 

8 

sub 

273 

5 

equalp 

291 

5 

equal 

539 

395 

a  tomp 

547 

3579 

nullp 

564 

23 

null 

576 

30 

lenp 

587 

10 

len 

599 

20  2 

assoc 

643 

59 

pairlis 

663 

5 

printval 

702 

272 

read val 

704 

384 

non  blank 

714 

112 

readlist 

770 

10 

readint 

827 

659 

diyit 

835 

819 

letter 

843 

150 

read ident 

127 


readval 


867 

272 

879 

28 

880 

310 

881 

129 

882 

3 

884 

39  5 

947 

3 

1012 

28 

1041 

310 

1093 

102 

1193 

129 

1239 

28 

1261 

1 

eve  on 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

deprim 

r eadf name 


Filter  Function 
Purpose 

Filter  allows  the  user  to  extract  information  from  a 
list  based  on  a  Boolean  condition.  In  the  example  given, 
ail  numbers  greater  than  2000  are  extracted  from  the  list. 

Pr act ical  Application 

Filter  is  another  function  that  could  be  useful  when 
dealing  with  databases.  Users  of  relational  database 
systems  use  filtering  every  time  they  write  a  guery. 
Imagine  that  the  elements  of  the  example  are  salaries.  The 
guery  demonstrated  is  to  find  all  salaries  greater  than 
2000. 

Source  Code 
<letrec  fil 

<lambda  <bool  arg> 

Ciambda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<if  <<call  <var  bcol> 

<call  <var  sub>  <var  L> 

<con  1» 

<var  arg>> 

<call  <var  ccns> 

<call  <var  sub>  <var  L>  <con  1» 
<cali  <call  <var  fil> 

<var  bool> 

<var  arg>> 

<call  <var  rest>  <var  L>»> 
<cali  <call  <var  fil> 

<var  bool> 

<var  arg>> 

Ccail  <var  rest>  <var  L>>>>>>>>> 


<call 


<call  <var  fil>  <var  GE>  <ccn  2000>> 

<list  <con  1000>  <ccn  12000>  <con  2005>  <con  3400> 

<con  3305>  <con  134>  <con  2001>  <con  3500> 

<con  22  09 >  <ccn  19 99 >>>>  ! 

Results  of  filter  function  (Interpreted) 

Enter  Expression 

<  12000,  2005,  3400,  3305,  2001,  3500,  2209> 

Evaluation  Completed 

**********  **  I********************************************** 

Statistics 

System  time  wa'  416  milliseconds 

User  time  was  9083  milliseconds 


| Module 

Cells  created 

1 

1  - 

J dcpr im 

84 

1 

1 

I  cons 

562 

l 

| r eadiden 

79 

1 

| readint 

13 

1 

| letrec 

6 

1 

I  eval 

11 

1 

J  null 

11 

1 

1  GS 

10 

1 

Total  cells 

776 

Result  of 

filter 

function  (Comfiled) 

Enter  Expression 

<  12000, 

2005, 

3400,  330 

C 
-  9 

200  1, 

Evaluation  Completed 
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Systes  time  was 

"Jser  time  was 

Statistics 

216  milliseconds 

816  milliseconds 

| Module 

Cells  created  | 

i - 

| dcpr im 

-  1 

84  | 

|  cons 

562  | 

| readiden 

79  | 

| readint 

13  | 

| letrec 

6  j 

|  ev al 

11  1 

I  null 

11  1 

|G2 

10  I 

Total  cells 

776 

Profile  for  the 

filtering  function 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984  testll.p 
Profiled  Thu  Dec  13  13:40  1934 


Line 


C  cunt 


1 

1 

f  unc 

33 

8 

prin  tval 

36 

720 

ceilcount 

63 

1838 

nuilp 

84 

4010 

first 

94 

2  18  5 

rest 

122 

562 

cons 

258 

17 

SUb 

357 

10 

5Ep 

367 

10 

6E 

539 

27  5 

atomp 

13  1 


547 

1838 

nullp 

564 

1  1 

null 

599 

135 

assoc 

643 

55 

pair lis 

663 

3 

print val 

702 

151 

r  eadval 

704 

N> 

_ k 

O 

nonfclank 

714 

59 

r  eadlist 

77  0 

13 

readint 

827 

33  2 

digit 

835 

424 

letter 

843 

79 

readident 

867 

151 

readval 

879 

21 

evcon 

880 

210 

e  vlis 

881 

77 

apply 

882 

1 

letrec 

884 

27  5 

eval 

947 

1 

letrec 

1012 

21 

evcon 

1041 

210 

evlis 

1093 

55 

applyprim 

1196 

77 

apply 

1239 

28 

dcpr im 

1261 

1 

readf  name 
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Periodic  Sequence  Generator 
Pur  pose 

This  program  simply  illustrates  the  interpreter's 
ability  to  generate  a  recursive  sequence. 

Source  Code 
<letrec  reverse 
Clamtda  <L> 

<if  <<call  <var  null>  <var  L>> 

<con  <>> 

<call  <var  conr> 

<call  <var  reverse> 

<call  <var  rest>  <var  L>>> 

<call  <var  sub>  <var  L>  <con  1>>>>>> 

<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  egual>  <var  n>  <con  1>> 

<con  <2» 

<if<<call  <var  egual>  <var  n>  <con  2>> 

<ccn  <9  2» 


<<cali 

<var 

f  ibo> 

<call 

<  var 

subt> 

<  var 

n> 

<con 

1>>>> 

<call 

<var 

cons> 

<call 

<  var 

SUb  t> 

<call 

<var 

fir 

st> 

<var 

A 

A 

<call 

<var 

fir 

st  > 

<c 

all  < 

var 

rest> 

< var  f>>>> 


< var  f>>>>>>>>> 

<cail  <var  reverse> 

<cali  <var  fibo>  <con  24>»>>! 
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.  •. .  ^  ,  -  e.  -j 


Results  of  generating  the  first  24  elements  of  a  periodic 
sequence,  where  xl  =  2,  x2  =  9,  and  xk  =  ( x k—  1)  —  {xk— 2) 
for  k  =3,  4,  5,  ... 


Enter  Expression 
<  2,  9, 


9, 


7, 

7, 

7, 

7, 


-7, 
-7, 
-7, 
-7  > 


Evaluation  Completed 


System  time  was 
Jser  time  was 


Statis  t ics 
283  milliseconds 
2916  milliseconds 


|  Module 

Cells  created  | 

1 

! 

| dcp  r ira 

84 

i 

1 

icons 

1064 

1 

|  readiden 

87 

I 

| readint 

8 

1 

|  letrec 

12 

1 

| eg  ual 

46 

1 

|  su  tt 

44 

1 

|  n  u  1 1 

25 

i 

|  conr 

23 

1 

Total  cells 

1393 

Profile  of  seq2  (periodic  function) 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984  testll.p 
Profiled  Thu  Dec  13  10:10  1934 
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C  o  un  t 


line 


1 

1 

f  unc 

33 

21 

prin  t val 

36 

1  13  1 

celicount 

62 

33 

esual 

6  3 

7652 

nullp 

34 

16163 

first 

94 

8626 

rest 

122 

932 

cons 

137 

20 

conr 

183 

36 

subt 

253 

20 

sub 

273 

38 

eyualp 

29  1 

38 

e^ual 

539 

881 

atomp 

547 

7652 

nullp 

56  4 

21 

null 

599 

433 

assoc 

643 

116 

pair lis 

663 

21 

printval 

702 

163 

r eadvai 

704 

231 

nonblank 

714 

68 

r  eadlist 

770 

8 

readint 

327 

37  9 

d  i  g  i  t 

835 

474 

letter 

843 

87 

readident 

867 

163 

read  val 

379 

59 

evcon 

980 

736 

e  vlis 

88  1 

26  7 

apply 

652 

2 

letr ec 

884 

83  1 

eva  1 

947 

2 

letrec 
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< 

44, 

0-  6  94658, 

0.719340, 

0. 965639> 

< 

45, 

0. 707107, 

0.707107, 

1 . 000900> 

< 

46, 

0.719340, 

0.694o58, 

1. 035530> 

< 

47, 

0.  731354, 

0.681998, 

1. 072369> 

< 

48, 

0. 743145, 

0.  669  131  , 

1.  1 1 06 1 3> 

< 

45, 

0.  7547  10, 

0.656059, 

1  .  1  503  68> 

< 

50, 

0.  766044, 

0.642788, 

1.  1 9 1754> 

< 

51, 

0.  777146, 

0.629320, 

1 .234397> 

< 

52, 

0.  7880  1  1  , 

0. 615661, 

1. 27994 2> 

< 

53, 

0.  798636, 

0.601815, 

1. 327045> 

< 

54, 

0. 809017, 

0. 587735, 

1.37  63  32> 

< 

r  c; 

1 

0.  819152, 

0.573576, 

1 .428148> 

< 

56  , 

0. 829038 , 

0.559193, 

1 . 4  8256 1> 

< 

57, 

0.  838671  , 

0.544639, 

1 .539865> 

< 

58, 

0.  848048  , 

0.5299  19, 

1 . 60  0335> 

< 

59, 

0. 857167, 

0.515038, 

1 . 6  6  427  9> 

< 

60, 

0-866025, 

0.500000, 

1 . 73205 1> 

< 

61, 

0. 874620, 

0.484810, 

1 .304048> 

< 

62, 

0.  832948  , 

0.  469472, 

1. 880726> 

< 

63, 

0. 851007, 

0.453990, 

1  .  9  6  26  1  1  > 

< 

64, 

0.  896794  , 

0. 438371, 

2. 050304> 

< 

65, 

0.  906308  , 

0. 422618, 

2.1  445  07> 

< 

66, 

0.  91  3545  , 

0.406737, 

2 . 246037> 

< 

67, 

0.  920505, 

0.390731  , 

2.3  5  5352> 

< 

63, 

0.  927134  , 

0.374607, 

2.475037> 

< 

69, 

0.  933580, 

0.  358368, 

2.605039> 

< 

70, 

0.  939693  , 

0.342020  , 

2. 74747 7> 

< 

71, 

0.  9455  1  9, 

0.325568, 

2.904211> 

< 

72, 

0.  951057, 

0.3090 17, 

3.077684> 

< 

73, 

0.  956305, 

0.292372, 

3.2 7 03 53 > 

< 

74, 

0.  56  1262, 

0.275o  37, 

3.487414> 

< 

05, 

0.  965926, 

0.258319, 

3.732051> 

< 

7b, 

0.970296, 

0. 241922, 

4.0  1073  1> 

< 

77, 

9.974370, 

0. 224951 , 

4.331476> 

< 

78, 

0.  9781  48  , 

0.297912, 

4. 7 0 4 1> 3 0 > 

14  9 


< 

9, 

0.  1 56434 

< 

10, 

0.  173648 

< 

11/ 

0.  1  90809 

< 

12, 

0.  207912 

< 

13, 

0. 224951 

< 

19, 

0. 241922 

< 

15, 

0.  2588  19 

< 

16, 

0.  275637 

< 

17, 

0.2  92372 

< 

18, 

0. 309017 

< 

19, 

0. 325568 

< 

20, 

0. 342020 

< 

21, 

0.  358368 

< 

22, 

0.  374607 

< 

23, 

0.  390731 

< 

24, 

0.406737 

< 

25, 

0.  4226  18 

< 

26, 

0.  438371 

< 

27, 

0.  453990 

< 

23, 

0.  469472 

< 

29, 

0.  4848  10 

< 

30, 

0.  5  00000 

< 

31, 

0.  5  1  50  38 

< 

0.  5299  1  9 

< 

33, 

0. 544639 

< 

34, 

0. 5591 93 

< 

35, 

0. 5  735  76 

< 

36, 

0.  587785 

< 

37, 

0. o018  15 

< 

38, 

0.  6  1566  1 

< 

3r<  / 

0. 629320 

< 

40, 

0.642763 

< 

91  , 

0 .  6  5  d  0  5  9 

<■ 

92, 

0.  6691  3  1 

< 

0.  6  3  19  98 

3.937688,  0.158334> 
0.934808,  0. 176327> 
0.931627,  0.  1 9  43  80> 
0.978148,  0.212557> 
0.974370,  0 . 2 3 086  8> 
0.970296,  0.249328> 
0.965926,  0.267949> 
0.961262,  0.2  86745> 
0.956305,  0 . 30 57 3  1  > 
0.951057,  0.324920> 
0.945519,  0 . 344328> 
0.939693,  0. 363970> 
0.933580,  0 . 383864> 
0.927  184,  0 . 4  04326> 
0.920505,  0.424475> 
0.913545,  0.4 45229> 
0.906308,  0. 466308> 
0.898794,  0 . 487733> 
0.891007,  0 . 50  9525> 
0.332948,  0 . 5  3 1 7  09> 
0.874620,  0.5543 09 > 
3.866025,  0. 5773505 
0.3571&7,  0.o00361> 
0.848048,  0.6248695 
0.838671,  0. ©494085 
0.829038,  0.6745095 
0.319152,  0.7002035 
0.809017,  0.7265435 
3.  7986  36  ,  0.7535545 
0.733011,  0.7312365 
0.777146,  0.3097345 
0.766044,  0.3351035 
0.754710,  0.8692375 
3.743145,  0.5004045 
0.731354,  0.9325155 
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<var  x>> 

<call 

<call  <var  pam> 

<call  <var  restXvar  F>>> 

< va  r  x>>>>>>> 

<letrec  interval 
<lamtda  <m  n> 

<if  <<call  <var  GT>  <var  n>  <var  n>> 

<con  <>> 

<call  <var  cons> 

<var  m> 

<call  <var  interval> 

<call  <var  sum> 

<var  m> 

<con  1>> 

<var  n>>  >>>> 

<cail 

<call  <var  map> 

<call  <var  pam>  <list  <var  id>  <var  sin> 

<var  ccs>  <var  tan»» 

<call  <var  interval>  <con  0>  <con  90>>>>>>! 

Results  of  mapping  the  pam  function  across  a  list  to 
generate  the  table  of  trigonometric  values  for  angles  0-90 
degr  ees . 


Enter  Expression 


<< 

o. 

0.000000, 

1. 000000, 

c.  000300> 

< 

1, 

0.  0  17452  , 

0. 999848, 

0.017455> 

< 

2, 

0.  034899, 

0.  999391  , 

0.034921> 

< 

3, 

0.  0523  36  , 

0.993630, 

0. 052408> 

< 

4, 

0.  069756  , 

0.997564, 

0 . 069927> 

< 

c; 

/ 

0.  0871  56  , 

0.996 1 95, 

0.087439> 

< 

6  , 

0.  104523  , 

0.994522, 

0.  1 0  5 1 0  4> 

< 

7, 

0.  1  2  1869  , 

0.992546, 

0.  1  22 7  85> 

< 

8, 

0.  1  391  73  , 

0 . 9  90  2o6  , 

0.  1 4  05  4  1  > 
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Trig  little  Generating  Program 
Purpose 

Generates  a  table  or  trigonometric  values  for  all  angles 
in  the  interval  0  to  90  degrees. 

Discussion 

This  program  demonstrates  the  value  of  the  interval 
function  combined  with  the  map  functional.  The  reverse  of 
the  map  functional,  (pam)  ,  is  also  used.  Map  takes  one 
function  and  applies  it  to  all  the  elements  of  a  list,  where 
pam  takes  a  list  of  functions  and  applies  each  one  to  the 
same  argument.  It  is  clear  that  mapping  the  pam  function 
across  the  interval  0  to  90  produces  the  desired  results. 
This  program  also  illustrates  the  value  of  the  'id*  primi¬ 
tive  which  allows  the  first  eleaent  of  each  of  the  sublists 
in  the  result  to  be  the  angle. 

Source  Code 

<letrec  map 
<lambda  <f> 

<Iambda  <1> 

<if  < < ca 1 1  <var  null>  <var  L>> 

<con  <» 

<call  <var  cons> 

<call  <var  f>  <call  <var  firstXvar  L»> 
Ccall  <cail  <var  map>  <var  f>> 

<call  <var  rest>  <var  L>>>>>>>> 

<letrec  pam 
<lamtda  <F> 

<lambda  <x> 

<if  <<call  <var  null>  <var  F>> 

<con  <>> 

<call  <var  cons> 

<call 

<call  <var  first>  <var  F>> 
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letr ec 


947 

1012 

1041 

1093 

1198 

1239 

1261 


1 


6 

evcon 

169 

evlis 

45 

dpplyprim 

52 

apply 

28 

dcprim 

1 

r  eadf name 
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Profiled  Thu  Dec  13  15:03  1934 


( 

Line 

C  ount 

1 

1 

f  unc 

33 

13 

printval 

3  6 

614 

cellcount 

5 

62 

6 

equal 

63 

1656 

nullp 

84 

3439 

first 

94 

1861 

rest 

i 

122 

47  2 

cons 

183 

5 

subt 

233 

1 

divi 

273 

6 

equalp 

« 

291 

6 

equal 

535 

183 

atomp 

547 

1656 

nullp 

576 

1  1 

lenp 

« 

587 

1 

len 

599 

86 

assoc 

643 

32 

pairlis 

663 

13 

printval 

1 

702 

156 

read  val 

704 

218 

nonblank 

714 

62 

readlist 

770 

3 

readir.t 

j 

827 

37  5 

digit 

835 

469 

letter 

843 

91 

readiden  t 

867 

156 

r eadval 

« 

879 

6 

evcon 

880 

169 

eviis 

881 

52 

apply 

882 

1 

1 etr ec 

< 

864 

18  3 

e  val 
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<var  L»» 

<call  <var  split>  <list  abcdefioe  t>>>>>! 

Results  of  using  the  split  function  to  divide  a  10  element 
list 

Enter  Expression 
<<a,  b ,  c,  d,  e> 

,  <f,  i,  o ,  e,  t> 

> 

Evaluation  Completed 


Systec  time  was 

Oser  time  was 

Statist  ics 

166  millisecond 

833  millisecond 

| Module 

Cells  created  | 

I 

/ dcprim 

84  | 

1  cons 

472  | 

I readiden 

91  | 

| readint 

3  | 

| letrec 

6  1 

I  eval 

1  | 

j  len 

1  | 

1  divi 

1  | 

] egual 

6  1 

1  subt 

5  1 

Total  cells 

670 

Profile  of  split  (ten  element  list) 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984  testll.p 


S£lit  Function 
Purpose 

Split  takes  a  list  and  divides  it  into  two  equal  size 
lists . 

Pr act ical  Application 

The  split  function  illustrates  how  functional  languages 
lend  themselves  to  parallel  computer  operations.  If  quick¬ 
sort  was  implemented  using  split  then  once  the  list  was 
initially  separated  into  two  lists,  two  processors  could 
work  cn  those  two  lists,  etc.. 

Source  Code 
<letrec  splitaux 
<lamfcda  <k  L> 

<if  <<call  <var  equal>  <var  k>  <con  0>> 

<call  <var  cons> 

<con  <» 

<call  <var  cons> 

<var  L> 

<con  <>>» 

<let  <<r>  «call  <vai  splitaux> 

<call  <var  subt>  <var  k>  <<  on  1>> 
<call  <var  rest>  <var  L>>>> 

<call  <var  cons> 

<call  <var  cons> 

<cail  <var  first>  <var  L>> 

<call  <var  first>  <var  r>>> 
<call  <var  rest>  <var  r>>>>>>>> 

<let  <<split> 

<<lam bda  <L> 

<call  <var  splitaux> 

<call  <var  divi> 

<cali  <var  len>  <var  L>> 

<con  2>> 
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cons 


122 

907 

273 

17 

291 

13 

539 

711 

547 

6758 

564 

46 

576 

18 

587 

6 

599 

371 

643 

96 

663 

13 

702 

30  1 

704 

423 

714 

122 

770 

9 

827 

794 

835 

973 

843 

170 

867 

301 

879 

65 

880 

532 

881 

241 

882 

3 

884 

711 

947 

3 

10  12 

65 

1041 

532 

1061 

10 

1071 

6 

1083 

1 

1093 

19  5 

1198 

24  1 

1239 

28 

1261 

1 

eg u alp 

equal 

atomp 

nullp 

null 

lenp 

len 

assoc 

pairlis 

printval 

r  eadval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

read val 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

membp 

memb 

isf inset 
applyprim 
apply 
dcprim 
readf name 
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Evaluation  Completed 


Statistics 

System  time  was  633  milliseconds 

User  time  was  24433  milliseconds 


| Module 

Cells  created 

1 

1 

| dcpr im 

84 

1 

1 

|  cons 

907 

1 

| r eadiden 

170 

1 

jreadint 

9 

1 

| letrec 

18 

1 

|  null 

46 

1 

|  len 

6 

1 

| egu  al 

13 

t 

|  memfc 

6 

1 

Total  ceils 

1259 

Profile  for 

overlay 

program 

Berkel  Pascal 

Wed  Dec  12  12:48 

Profiled  Thu  Dec 

line 

PXP  —  Version  2. 

1984  testll.p 

13  14:05  1984 

Count 

12  (5/11/83) 

1 

1 

f  unc 

33 

13 

printval 

36 

1203 

ceilcount 

62 

13 

egu  al 

63 

6758 

nui  ip 

84 

1  4295 

first 

94 

7  556 

rest 
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Evaluation  Completed 


********************************************************** 

Statistics 


Systeir  time  was 
User  time  was 


133  milliseconds 
2333  milliseconds 


| Module 


V 


i  n  i  11  in  i;i'  r-»  v"v 


<call  <var  is£infunc> 
<call  <var  rest> 
<var  T»>>> 


<con  false> 


»»> 


<letrec  overlay 
<larabda  <T  pr> 

<lf  <<call  <var  equal> 

<call  <var  is£infunc>  <var  T>> 

<con  trae>> 

<if  <<call  <var  null>  <var  T>> 

<call  <var  cons>  <var  pr>  <con  <>>> 

<if  <<call  <var  equal> 

<call  <var  first>  <var  pr>> 
<call  <var  first> 

<call  <var  first> 

<var  T>>>> 

<call  <var  overlay> 

<call  <var  rest>  <var  T>> 

<var  pr>> 

<call  <var  cons> 

<cali  <var  first>  <var  T>> 

<call  <var  overlay> 

<call  <var  rest>  <var  T>> 
<var  pr>>> 

>>>> 


<con  Tnotffunc> 


>>> 


<call  <var  overlay> 

<call  <var  repr>  <finset  '>  <6  5>  <3  9>>> 
<1 ist  7  2  >  >>>>! 

Results  of  overlay  function  addir.j  the  value  <3  4> 
to  the  table.  (Compiled) 


inter  expression 


Overlay  Function 
Purpose 

Overlay  takes  a  finite  function,  (table),  and  returns  an 
identical  table  with  an  additional  pair  added. 

Practical  Application 

Overlay  could  be  used  as  a  way  to  update  a  database. 
Source  Code 


Cletrec  firstlist 
Clambda  <L> 

<if  <<call  <var  nuli>  <var  L>> 
<con  <>> 

<call  <var  cons> 


fir 

St 

> 

<  v 

ar 

f 

irst>  <var 

fir 

St 

li 

st> 

<  v 

ar 

r 

est> 

<  V 

ar 

L 

>>>>>>> 

<letrec  isfinfunc 
<lambda  <T> 

<if  <<call  <var  null>  <var  T>> 

<con  true> 

<if  <<call  <var  et,ual> 

<call  <var  len> 

<call  <var  first>  <var  T>>> 
<con  2>> 

<if  <<call  <var  meab> 

<call  <var  first> 

<call  <var  firstlist> 
<var  T>>> 

<call  <var  rest> 

<caii  <var  firstlist> 
<var  T>>>> 

<con  false> 
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r — r-  1  r  v  if*  V"  "'"V'  •TT"  v  ■  VT^  V  *  ■..■  ■  "  w  'J  ■  J  *  "  m  '  w"  *  1  T"  T  '.»  J  v  1  r  1  r 


1012 

59 

evcon 

1041 

738 

evlis 

1093 

227 

a^j^ly  prim 

1198 

267 

apply 

1239 

28 

dcprim 

126  1 

1 

readf name 

136 


< 

79, 

0.  981627, 

0.190809, 

5.1 44554> 

< 

% 

o 

co 

0.  984808  , 

0.  173648, 

5.67 1282> 

< 

81, 

0.  987688  , 

0.  156434, 

6.3 13752> 

< 

CD 

M 

* 

0.  9S0268, 

0.  139  173, 

7.1  1  53  70> 

< 

33, 

0.  9  92546  , 

0.  121869  , 

3.  14434o> 

< 

CO 

-C: 

> 

0.  994522, 

0.  104523, 

9. 514364> 

< 

85, 

0.  996195, 

0.087156, 

1  1. 430052> 

< 

86, 

0.  997564, 

0.069756, 

14.  300666> 

< 

37, 

0-  998630, 

0.052336, 

19.  0  8 1 1 37> 

< 

83, 

0.  999391  , 

0.034899, 

2  8. 636253> 

< 

00 

<o 

% 

0.  999848  , 

0.  0  17452, 

57.  28996  2> 

< 

90, 

1.  000000  , 

' undef ' , 

'undef  •> 

> 


Evaluation  Completed 

Sta  tis  t  ics 


System  time  was 

User  time  was 

4450 

292650 

mil liseconds 

mil  liseconds 

| Module 

Cells  created  | 

1 . 

] dcpr im 

84 

i 

1 

Icons 

10305 

1 

| re  adi den 

121 

1 

|  r  e  a  d  i  n  t 

3 

1 

| letrec 

18 

1 

l  e va  1 

457 

1 

|  GT 

92 

1 

1  sum 

91 

1 

|  nu  1 1 

547 

1 

|  si  n p 

91 

1 

|  cos  p 

91 

1 

|  ta nr 

91 

J 

150 


Total  cells 


11991 


Results  of  trig  table  generator  (Compiled) 

Evaluation  Completed 

********************************************************** 

Statis  tics 

System  time  was  1216  milliseconds 


User  time  was 

24100 

mil liseconds 

1  Module 

Cells  created  | 

1 

| dcpr im 

84 

1 

J 

Icons 

10305 

1 

| readiden 

121 

1 

| readint 

3 

1 

| let  rec 

18 

1 

|  GT 

92 

i 

i  sum 

91 

1 

I  eval 

457 

1 

(null 

547 

1 

|  tanr 

91 

1 

I  cosp 

91 

1 

|  sinp 

91 

1 

Total  ceils 

11991 

Profile  for  trigtable  generati rg  function 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

Wed  Dec  12  12:43  1984  test  11.  p 
Profiled  Thu  Dec  13  09:36  1984 


L  i  n  e 


Count 


f  unc 


1 

1 

33 

456 

36 

1  1935 

63 

38505 

84 

189153 

94 

102572 

122 

10305 

156 

9  1 

330 

92 

340 

92 

411 

9  1 

433 

91 

454 

91 

539 

1  0495 

547 

88505 

564 

547 

599 

5563 

6  43 

2284 

663 

456 

702 

21  1 

704 

298 

714 

87 

770 

3 

827 

510 

835 

634 

843 

121 

867 

21 1 

879 

639 

880 

8  118 

881 

364  6 

882 

3 

834 

1  0495 

947 

3 

1012 

639 

152 


print val 

cellcount 

nuilp 

first 

rest 

cons 

sum 

GTp 

GT 

sinp 

cosp 

t  ann 

a  tomp 

nuilp 

null 

assoc 

parr  lis 

printval 

read vai 

nonblank 

readlist 

r eaaint 

digit 

letter 

readident 

r  eadval 

eve  on 

evlis 

apply 

letrec 

e  vai 

letrec 

eve  on 


Comaariscn  of  Programs  Run  With  and  Without  the  M en, ory 
Manager  (MM) 

General 

The  column  labeled  "left”  i  r.  the  following  table  refers 
to  the  number  of  cells  that  were  in  the  freelist  after  eval¬ 
uation  of  the  program.  This  is  caused  by  returning  the 
cells  that  made  the  program  list  and  is  noteworthy  because 
several  programs  could  be  loaded  in  the  same  file  and  evalu¬ 
ated  without  the  danger  of  using  all  allocated  memory. 


Cells  Created 


Program 

MM 

Nc  MM 
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System 

TIME 

User 

TIME 

Reverse 

381 

401 

46 

4  16 

9566 

Revaux 
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427 

46 

533 

1090 

Append 

53  1 
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5  1 
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10583 

Map  (sine) 
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95 
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12233 

Halving 
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15800 
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72 
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Factorial 
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1  e 

4  16 
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1042 
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e 

1 1  16 
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24 
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jui t :  boolean ; 


ntwcells  :=  newct-lli; 


with  EJa)  ,1c  beqin 


rval  :  -  aiD.rval  -  Laf.rval; 
end; 
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function  read f na me  :  filename; 
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(♦Determine  whether  the  program  is  to  be  interactively  typed  in  or  read 
from  a  file  by  checking  the  number  of  arguments  on  the  command  line. 

If  there  are  two  arguments  and  the  second  one  is  'i •  the  session  is  to 
be  interactive,  otherwise,  prompt  the  user  for  the  filename  (1..80  chan 


writein  {' Enter  Expression* 


nonblank ; 

if  ch  <>  ' ! '  then  begin 


User  time  -  Ihe  amount  cf  time  actually  spent  obeying  the  instruc¬ 
tions  in  the  user’s  program*) 
wr-^e^-*‘  ('  System  time  was  '  ,sysclock : 1 0 , '  milliseconds'); 


writeln  (' User  time  was  ,#ciock:10,'  milliseconds' 
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